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MS-DOS & GW-BASIC emulator' è anche su disco. Per quanti hanno acquistato la versione su 
cassetta ed inviano la relativa prova d'acquisto, il dischetto è disponibile a lire 15.000 (-h lire 3.000 
per spese di spedizione). Non occorre inviare la cassetta né tantomeno il manualetto di istruzioni. 
Chi non è m possesso della cassetta può richiedere il disco ed il manualetto al prezzo normale di 

lire 25.000 ( + lire 3.000 per spese di spedizione). 

Per una veloce evasione dell'ordine inviate un assegno bancario o circolare non trasferibile 
all'ordine della “Systems Editoriale " (V.le Famagosta, 75 - 20142 Milano). 
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Dalla fine all’inizio 


Un periodo volge al termine ed uno nuovo 
inizia (e altre considerazioni) 


1 1 periodo estivo, fino a settembre, £ 
considerato di pausa, per qualsiasi 
attività. 

Anche noi non sfuggiamo alla “re- 
gola e ci sentiamo vicini agli stu- 
denti impegnati nello sprint finale, a- 
gli adulti che. durante la pausa di la- 
voro. scambiano idee con i colleghi 
sui prossimi luoghi di villeggiatura. 

L’euforia delle elezioni è finita (?>, 
lo scalpore suscitato dall’IHM per i 
suoi nuovi computer non fa più noti- 
zia (ne ha già fatta, e molta) ed i co- 
municati della Commodore, per ciò 
che ci riguarda, lasciano sperare in 
qualcosa di buono. 

Altri avvenimenti hanno contribui- 


to, recentemente, a destare la nostra 
attenzione; alcuni di questi sono le- 
gati al mondo del computer, altri un 
po’ meno, ma tutti sono vicini, co- 
munque. al campo del “progresso *. 

Più preoccupazione, invece, desta- 
no le recenti notizie sulle manipola- 
zioni genetiche che porterebbero alla 
“creazione" di una razza subumana 
al servizio, è inutile dirlo, dei suoi 
“creatori**. 

Come dia* che il razzismo, cacciato 
dalla porta, rientra indisturbato dal- 
la finestra, e per giunta accolto con la 
prestigiosa etichetta di attività 
scientifica. 

E noi che ci preoccupavamo di non 


esagerare nefutilizzare termini che, 
più propriamente, si riferiscono agli 
esseri umani! Quando, per semplici- 
tà. utilizzavamo il verbo pensare, nel 
riferirci al percorso delle istruzioni in 
un programma, era d’obbligo impac- 
chettarlo tra virgolette, per intendere 
che il computer pensa, ma solo per 
modo di dire. 

Anche considerando i recenti pro- 
gressi tecnologici (quarzi a 20 Me- 
gahertz, processori paralleli, compu- 
ter iperveloci) abbiamo sempre indi- 
viduato una profonda linea di de- 
marcazione tra l'uomo e la macchi- 
na. tra la creatività ed il semplice ac- 
costamento casuale di frasi apparen- 
temente connesse ila una struttura 
“intelligente". 

E allora, signori scienziati (con tut- 
to il rispetto per i veri signori) lasciate 
perdere le vostre sperimentazioni 
che sapete dove iniziano e non 
dove finiscono. 

E queste considerazioni valgono, 
mi auguro, anche indipendentemen- 
te da credenze religiose o da ragioni 
etiche e morali; per evitare, insom- 
ma. di considerare vecchi film (e mi 
riferisco al Pianeta delle scimmie) 
non con un sorriso di sufficienza, di 
prammatica per un qualsiasi film di 
pura fantasia, ma come un manuale 
di comportamento utile per un Me- 
dio Evo. venturo e prossimo più 
che mai. 
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Stampante e drive 

□ I Turbo l>os rovinano i drive? Come 
resecare la stampante senza spegnerla 
e riaccenderla? 

f Luigi Grasso ■ Somewhere) 

• I vari programmi velocizzatoti (car- 
tucce. software e anche Spccd Dos, 
Pro logie e altri) costringono il drive 
ad effettuare letture e scritture a velo- 
cità nettamente superiori alla norma. 
E' quindi comprensibile il timore del 
nostro lettore, ma per dare una cor- 
retta risposta sarebbe necessario ef- 
fettuare centinaia di prove “a fatica" 
su molti sistemi diversi. 

Una prova del genere, in effetti, è 
svolta quotidianamente da migliaia 
di utilizzatori (tra cui il sottoscritto, 
che ha dotato il C/64 di Speed Dos) 
che, almeno finora, non hanno la- 
mentato inconvenienti di sorta. 

E' probabile un disallineamento 
della testina, ma tale inconveniente 
non sembra essere più frequente tra 
coloro che utilizzano sistemi velo- 
cizzatoli. 

Nonostante, quindi, il nostro giudi- 
zio sia ampiamente positivo sull'affi- 
dabilità e sicurezza, rivolgiamo la 
domanda ai nostri lettori: ce qualcu- 
no, tra voi, che ha notato difficoltà (di 
qualsiasi genere) utilizzando le uti- 
lity per aumentare la velocità di ope- 
razioni I/O? 

Passando alla seconda domanda, 
la sintassi relativa all'invio dati verso 
la stampante richiede tre informa- 
zioni: il numero del canale (Nc), il 
numero di periferica (Np, di solito 4) 
e l’indirizzo secondario (Is). Tipica- 
mente l'apertura di un file c del 
tipo: 

(Jpen N-f , Np , I s 

Non appena si accende la stam- 
pante l'indirizzo secondario vale ze- 
ro ma caricando programmi com- 
mercializzati, soprattutto del tipo 
grafico, l’indirizzo secondario viene 
modificato per consentire la corretta 
gestione dei singoli dot (puntini da 
stampare), dell'interlinea, c così via. 


Smettendo di utilizzare il program- 
ma in questione, molto spesso la 
stampante rimane settata nelle con- 
dizioni grafiche o, comunque, in mo- 
do diverso da come si trova al mo- 
mento dell accensione. 

Per ripristinare le funzioni ‘nor- 
mali’’ puoi tentare, in modo diretto, 
con... 

Close 1: Open 1.4.0: Print# I: dose 1 

...evitando accuratamente di abbre- 
viare il comando Print con il punto 
di domanda (?), pena un Syntax 
error. 

Se. nonostante la riga suggerita 
(che dovrebbe ripristinare le condi- 
zioni di dcfault). la stampante non 
dovesse funzionare a dovere, non ri- 
mane che spegnerla e riaccenderla. 

Non temere, comunque, che accen- 
dere e spegnere apparecchi possa ar- 
recare danno al sistema; l'importante 
è attendere qualche secondo prima 
di riaccenderlo, e di evitare di “gioca- 
re” con i vari interruttori. 


Costruiamo un Modem 

□ Perchè non pubblicate lo schema di 
un modem di facile realizzazione? 

( Mauro Nobile - Sesto S. Giovanni) 

• E' vero che, con l'apporto della tec- 
nologia moderna, i chip oggi dispo- 
nibili consentono semplici realizza- 
zioni. ma la costruzione di apparec- 
chi affidabili dovrebbe esser riserva- 
ta ai veri esperti del saldatore. La no- 
stra non è una pubblicazione di elet- 
tronica, e se talvolta suggeriamo gli 
schemi di accessori, questi rimango- 
no nell'ambito della semplicità asso- 
luta, alla portata di (quasi) tutti i 
lettori. 

D’altra parte ritengo che la spesa 

necessaria per realizzare un modem 
sia inferiore, al massimo, del 20% ri- 
spetto ad un analogo prodotto com- 
mercializzato, funzionante, garanti- 
to, dotato di libretto di istruzioni c. 


quasi sempre, di software appropria- 
to. Risparmiare una cifra che si aggi- 
ra sulle cinquantamila lire non è. 
quindi, consigliabile. 


Rilocare 

□ Che cosa vuol dire “rilocare”? 

(Antonio Finto - Napoli) 

• Prendiamo in considerazione il 
semplicissimo listato Basic. 

100 input "scrivi ": a 
I IO if a(l00 ihen 140 
120 ifa)l00 then 150 
130 prini'cento ": goto 100 
140 print" minore": gotol(X) 

150 print" maggiore”: goto 100 

Come puoi notare (a parte la sua... 
inutilità) vi sono, al suo interno, di- 
versi “salti " (goto 100: then 140; then 
150) ad altre parti del programma. 

In Basic sono disponibili numerose 
utility che consentono di remunerare 
un programma mantenendo inalte- 
rata la logica dei "salti”. In altre paro- 
le. volendo re numera re il program- 
ma di prima a partire da 235, e limi- 
tandosi a mantenere ordinati i soli 
numeri di linea, perverremmo al se- 
guente listato... 

235 inpu t ' ' scrivi ' \a 
240 ifa(100 then 140 
245 if a) 100 then 150 
250 print "cento": goto 100 
255 print "minore": gotol(X) 

260 print maggiore”: goto 100 

...che non può funzionare a causa 
dell'inesistenza delle linee 100, 140 e 
150. Un "vero” programma renume- 
ratorc (di serie sul C/16 e sul C/128), 
deve renumerare anche i cosiddetti 
“argomenti’’ delle istruzioni Goto, 
Gosub e Then. Una renumerazione 
corretta è quindi la seguente: 

235 inpu t " "seri vi " \ a 
240 ifailOO then 255 
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245 ifa)1 00 then 26() 

250 [trini "cento”: goto235 
255 prim ' minore ’: goto235 
200 print' maggiore": goto235 

Anche lavorando in linguaggio 
macchina si ha spesso a che tare con 
istruzioni di salto condizionato (si- 
mili a "II.. .Then") o incondizionato 
(del tipo Cìoto. Gosub) e. talvolta, si 
presenta la necessità, per vari motivi, 
di riscrivere lo stesso programma in 
altra zona della memoria a disposi- 
zione. In casi come questo e necessa- 
rio compiere un'operazione analoga 
alla renumerazione del Basic e che 
prende, più propriamente, il nome 
di “Rilocazione’’. 

Purtroppo, limitandosi a lavorare 
con i programmi di Monitor (incor- 
porati nel C71 6 c CI 28), è possibile 
solo un’operazione simile alla renu- 
merazione “parziale” vista prima ed 
è necessario, quindi, rintracciare... a 
mano le varie istruzioni Goto. Gosub 
e provvedere a modificare l'indi- 
rizzo. 

Alcuni programmi specifici per la- 
vorare in L.M. fortunatamente, prov- 
vedono alla rilocazione automatica 
di qualsiasi programma scritto in As- 
sembly. Come puoi intuire, però, c 
opportuna una profonda conoscen- 
za del LM e della struttura del calco- 
latore per utilizzare con profitto i 
programmi-utility di cui parlo: Ma- 
ero Assembler. Merlin e altri. 

Da disco a nastro 

□ Posseggo solo il C/64 dotato di uni- 
tà a cassetta e vorrei sapere come uti- 
lizzare programmi che richiedono e- 
spressamente l'unità a dischetti. 

(Giuseppe Valdemarin - Romans D’ Isonzo) 

• Chiariamo subito che i programmi 
commercializzati, che richiedono 
l'unità a dischi, non possono in alcun 
modo esser modificati perchè il lavo- 
ro richiesto sarebbe talmente lungo e 

difficile che risulterebbe più econo- 
mico svolgere una qualsiasi altra atti- 
vità (remunerata) c. con i soldi gua- 
dagnati. comprare il sospirato drive... 

Scherzi a parte, è bene sottolineare 
che alcune funzioni (contabilità, ar- 
chiviazione. grafica su stampante) 
possono esser svolte con efficienza 


solo se si possiede un disco, altrimen- 
ti l’operazione risulta più spedita con 
carta c penna. 

Quando pubblichiamo programmi 
che richiedono il drive, ciò avviene 
non per motivi “promozionali” (co- 
me qualche maligno insinua) ma 
proprio perchè sarebbe un contro- 
senso servirsi di un calcolatore per 
ottenere un’efficienza minore di 
quella ottenibile manualmente. 

Molte delle modifiche da apportare 
sono state indicate (o accennate) nel- 
l'inserto del N.39 (Come gestire sen- 
za problemi un file sequenziale). 
Riassumerò, comunque, le informa- 
zioni principali. 

L'apertura di un file sequenziale su 
disco è della forma... 

Open Nf.Np.Is. " nome.s.r ” 

Open Nf.Np.Is. "nome.s.w" 

...rispettivamente in lettura e in scrit- 
tura. in cui Nf, Np. Is hanno il signifi- 
calo illustrato in queste stesse pagine, 
“s" significa “sequenziale", “r” 
“read” ( = lettura) c “w” “write" 
( = scritti! ra). 

Con un registratore la sintassi è 
la seguente: 

Open Nf.Np.Is. "nome’' 

in cui Np vale sempre l.e Is vale ze- 
ro (se in lettura) e l. oppure 2, se in 
scrittura. 

Sarà quindi sufficiente (!) rintrac- 
ciare. alì'intemo del programma Ba- 
sic che interessa, i comandi Open e 
apportare le dovute modifiche. I co- 
mandi Close. Print#. Get#, Input#, 
infatti, non richiedono modifiche 
(tranne che in casi particolarissimi) 
dal momento che la sintassi è identi- 
ca sia nel caso del drive che del 
registratore. 

Consigli 

□ Vi faccio una proposta che non do- 
vreste rifiutare... 

(Massimiliano Vispi - Roma) 

• Seguiremo, per quanto possibile, i 
consigli suggeriti. Altri, invece, sono 
già stati seguiti; in particolare: 

Le routine di Toma sono state ri- 
pubblicate (e sono disponibili anche 
su disco nella loro versione definiti- 
va) sul numero speciale monografico 


della nostra rivista “Commodore” 
che puoi chiedere al servizio arretrati 
(tcl.02/84.67.348 chiedendo della si- 
gnora Lucia). 

La decisione di rifiutare l'invio 
contrassegno è stata presa sia perchè 
costerebbe molto di più, sia per pro- 
blemi organizzativi. 

Non parleremo mai di altri compu- 
ter che non siano di marca Commo- 
dore: vi sono tanti lettori che si la- 
mentano del poco spazio che dedi- 
chiamo a C/16 e C/128, figuriamoci 
che cosa accadrebbe se dedicassimo 
pagine ad altre marche! 

Passando alla seconda parte della 
tua lettera, li assicuro che le lettere le 
leggiamo tutte, e fino alla fine. Solo a 
questo punto, infatti, provvediamo 
a cestinarle... 

Non funge 

□ Il programma “Alla scoperta delle 
tracce" pubblicato sul N.40 (di cui al- 
lego l'output della mia stampante) si 
blocca con la segnalazione di errore al- 
la riga 180. Quale nc è il motivo? 
(Paolo Sabbion - Padova) 

• Questa lettera mi ha fatto perdere 
circa due ore di tempo perchè, in ef- 
fetti. il programma digitato dal letto- 
re, a giudicare dalfouput inviato, è i- 
dentico a quello pubblicato e a quel- 
lo. ovviamente, presente nel mio ar- 
chivio su disco e su “Directory" (c 
che funzionano perfettamente). 

Il motivo della segnalazione di er- 
rore, quindi, mi sfugge totalmente a 
meno che non si verifichi una delle 
seguenti condizioni: 

a/ Il computer usato non è un C/64, 
come richiesto espressamente sulla ri- 
vista: con un C/128 (in modo 128). il 
programma, infatti, genera un errore 

del tipo lamentato; con un C/16 e un 
Plus/4, invece, gira normalmente, ma 
genera un file che non è possibile u- 
tlizzarc con tali computer. 

b/ Nel computer è inserita una car- 
tuccia “strana" che altera i puntatori 
63 c 64 (o i loro contenuti). Preciso 
che il programma pubblicato gira 
normalmente su un C/64 normale, su 
un C/64 “incorporato” in un C/128 c 
su un C/64 dotato di Speed Dos. 

Se nessuna delle due ipotesi è veri- 
ficata. ti prego di inviarmi SU DI- 
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SCO il listato incriminato, allo scopo 
di esaminarlo con maggior accura- 
tezza: sono oltremodo curioso di sco- 
prire il diletto! 

Al contadino non far sapere... 

□ Io penso che voi non pubblicate le 
notizie relative alle locazioni di memo- 
ria e alle routine delle Rom perchè 
“troppe persone saprebbero cose che 
solo pochi devono sapere”... 

(Roberto Cariai - Roma) 

• Diamine! Mi hanno accusato di 
tante cose, ma addirittura di essere a 
capo di una setta segreta non me lo 
sarei mai aspettato. 

Non appartengo alla P2 (al massi- 
mo alla C/64) c, lo giuro, non appena 
scopro qualche tecnica particolare di 
programmazione, o qualche utilizzo 
insolito di una locazione di memo- 
ria. mi affretto a divulgarla. Più di li- 
na volta, e me ne darai atto, ho spinto 
i lettori a comunicare le loro scoper- 
te, c le più interessanti sono sempre 
state pubblicate. 

Il motivo del (presunto) modesto 
numero di pagine dedicate allargo- 
mento è da ricercarsi esclusivamente 
nella vastità dei casi possibili e nella 
quasi infinita applicazione delle va- 
rie routine del Kernal: pubblicarle 
tutte richiederebbe una rivista “in- 
finita”. 

Per ciò che riguarda la taratura del 
drive, l'operazione è semplicissima, 
se svolta da un laboratorio attrezza- 
to; vi sono in giro anche programmi 
(!) che provvedono a registrare cor- 
rettamente la testina di lettura/scrii- 
tura. Non sempre, però, sono suffi- 
cienti e, in questi casi, c necessario 
consegnare il drive ad un ripara- 
tore autorizzato. 

Stelle e strisce 

□ Perchè, durante il caricamento (so- 
prattutto da nastro) compaiono sul vi- 
deo strisce colorate? 

(Maurizio Mencarini - Viareggio) 

• Il sistema di registrazione originale 
Commodore, come è noto, risulta 
piuttosto lento e, di conseguenza, so- 
no stati sviluppati molti software di 
supporto per sveltire le operazioni 
con la cassetta. 
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□ VI PREGO INVIARMI IN CONTRASSEGNO POSTALE I SEGUENTI 
ARTICOLI IN OFFERTA SPECIALE: (più L. 3.000 di spese postali) 

□ ACQUISTO PRESSO UN RIVENDITORE COVER I SEGUENTI 
ARTICOLI IN OFFERTA SPECIALE: 


i I Art. 1501 COPERTINA MORBIDA per Commodore PC 10- PC 20 

(monitor CPU/KEYBOARD) L 16.800 
L] Art. 1502 COPERTINA MORBIDA per Commodore 128 

(monitor KEYBOARD- DRIVE) L. 24.800 
CU Art. 1503 COPERTINA MORBIDA per Commodore 64/VIC20/CI6 L. “*0 400 

□ Art. 2001 COPERTURA RIGIDA TRASPARENTE 

per Commodore 64/VIC 20/C 16 L. 1 1 .200 

Art. 2002 COPERTURA RIGIDA TRASP per Commodore Plus 4 L 17.200 
CU Art. 2003 COPERTURA RIGIDA TRASP per Commodorel 28e128D L. 12.400 

□ Art. 2101 COPERTURA RIGIDA TRASP per Sinclair ZX Spectrum L. 12.400 

□ Art. 2102 COPERTURA RIGIDA TRASPARENTE per Sinclair QL L. 18.000 

f I Art. 2103 COPERTURA RIGIDA TRASP per Sinclair Spectrum + L. 16.400 
CI Art. 2601 COPERTURA RIGIDA per Atari 520/1040 L. 19.900 

[ 1 Art. 3001 BASE PORTASTAMPE 80 COLONNE in plexiglass trasp. L. 47.200 

□ Art. 4001 BORSA PORTA COMPUTER 


nome: 

via: 

c.a.p. 

codice fiscale 


per Commodore 64/VIC 20 /C 16 L. 74.000 


città 

~1 


firma 
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In molti casi è stato necessario mo- 
dificare il sistema operativo, che ge- 
stisce, tra l’altro, il video. Si ebbero, 
quindi, effetti collaterali, come perdi- 
te di sincronismi, colorazione ron- 
doni dello schermo, alterazione del 
rastcr ed altre condizioni che, in se- 
guito. furono sfruttate abilmente per 
dare un aspetto piacevole allo scher- 
mo durante il caricamento di un 
progra mma. 

Come puoi intuire, però, ognuno 
dei numerosi Turbo in commercio ha 
una sua tecnica particolare di gestio- 
ne dei dati. 

Rimane il fatto, comunque, che le 
strisce di colore che noti durante un 
caricamento non sono altro che un 
“difetto"' del sistema stesso! 

Formattazione del 1571 

□ In che modo un dischetto viene for- 
mattato con un 1571? 

(Baldassarre Silvestre - Gela) 

(Luigi Scarpetlino - tornila) 

• Un drive 1571 può essere collegato 
ai computer Commodore Vic/20, 
C/16. Plus 4. C/64, C/128; solo con 
quest'ultimo, però, funziona al me- 
glio delle sue possibilità. 

Il 1571, infatti, è dotato di due testi- 
ne di lettura/scrittura che sono in pe- 
renne contatto con entrambe le su- 
perfici del dischetto. Se usi un qual- 
siasi computer (tranne che il C/128, 
purché in modo 1 28 oppure CP/M) il 
drive si comporta come un normale 
1541 e formatta, legge, scrive e can- 
cella operando su una sola faccia 
del disco. 

Con un C/128, invece, (purché uti- 
lizzato in modo 128 oppure CP/M) 
impartendo il comando di formatta- 
zione si ottiene, come risultato, la for- 
mattazione di entrambe le facce 
del dischetto. 

Se. quindi, si inserisce nel drive un 
dischetto già formattato in preceden- 
za con un C/M (o Vic/20 o C/16), il 
C/128 (anche se in modo 128) opera 
agendo su quell'unica faccia. 

In conclusione è possibile ottenere 
un disco con 1328 blocchi solo se 
questo é stato formattato con un 
C/l 28 (in modo 128) collegato con un 
drive 1571. 


In tutti gli altri casi, invece, i bloc- 
chi sono “solo " 644 e non si corre il ri- 
schio di invadere inavvertitamente la 
seconda faccia del disco. 

Presunte inesattezze 

□ In riferimento all'articolo “Relati- 
vamente utili” (CCC N.40) vi prego di 
puntualizzare le imprecisioni relative 
ai puntatori e, soprattutto, specificare 
che con il comando Input# non è pos- 
sibile leggere più di 80 caratteri. 
(Anonimo) 

• Oltre a dimenticare la firma, la tua 
distrazione è esemplare tanto che la 
sottopongo all’attenzione dei lettori: 

- Non precisi le... imprecisioni che 
dovremmo puntualizzare e di conse- 
guenza non riesco a capire che cosa 
c’é da chiarire. 

- Moltissime volte, in vari articoli c 
nelle colonne della “Posta'’, abbiamo 
avuto occasione di precisare che il 
comando Input# non accetta più di 
80 caratteri e. ovviamente, anche il 
modo di porre rimedio all'i neon- 
veniente. 

Ti consiglio, quindi, di leggere at- 
tentamente la nostra rivista perche le 
informazioni che si cercano sono 
spesso “disseminate” nelle varie 
pagine. 

Easy Script difettoso? 

□ Dopo la terza o quarta copia di un fi- 
le scritto con Easy Script, a volte il si- 
stema si blocca e sono costretta a spe- 
gnere e riaccendere. Quale può esser- 
ne la causa? 

(Paola Cremona - Roma) 

• Uso abitualmente E/S e non mi è 
mai capitato un inconveniente del 
genere. E’ probabile che la versione 
utilizzata sia una copia pirata- 
mal copiata. 

Ho visto molte versioni copiate del 
popolare W/P; una di queste, lunga 
appena 51 blocchi di disco, funziona 
perfettamente solo con il drive men- 
tre, servendosi del registratore, il si- 
stema si blocca. 

Siccome non precisi se il software è 
originale, o meno, non sono in grado 
di aiutarti. 


Versione 2 di Ms-Dos 

□ Sono soddisfatto del vostro prodotto 
che consente di simulare il Gw-Basic 
con un C/64. Quando divulgherete la 
seconda versione? 

(Giancarlo Graziosi - Ospitaletto) 

• Come promesso nella stessa confe- 
zione del software venduto in edico- 
la, sarà disponibile una seconda ver- 
sione. migliorata c più ricca di quella 
che possiedi. 

Non penso, però, che prenderemo 
in considerazione la possibilità di u- 
na versione specifica per il C/128; per 
ciò che riguarda la possibilità di uti- 
lizzare 80 colonne con un C/M, a 
parte le solite considerazioni sulla 
nitidezza conseguibile, bisogna tener 
presente che il relativo software ri- 
chiede aluni Kbytc per ottenere uno 
schermo più grande. Il numero di 
byte che resterebbero disponibili per 
Putente rischia, quindi, di essere 
esiguo. 

Disservizi e assistenza 

□ Ho tribolato parecchio per la ripara- 
zione del mio computer... (segue acco- 
rata descrizione dei patimenti subiti). 

(Attilio Peschiera * Bereguardo) 

• Purtroppo, oltre che offrire la mia 
personale solidarietà, non mi c possi- 
bile intervenire, se non ribadendo 
che un centro di assistenza non può 
esser gestito da un qualsiasi scalza- 
cane (con tutto il rispetto per i cani), 
ma richiede serietà e correttezza 
piuttosto particolari. 

Per consolarti, però, ti posso dire 
che stiamo per organizzare una ru- 
brica (con regolarità saltuaria) del ti- 
po “La difesa del consumatore”. 

Per evitare inesattezze nel citare i 
vari casi, sarà indispensabile allegare 
le fotocopie della documentazione 
che possa testimoniare le carenze la- 
mentate (raccomandate, bolle di 
consegna, garanzia, date di ingresso 
c di uscita, eccetera). In caso contra- 
rio non potremo pubblicare le varie 
lamentele onde evitare, in caso di i- 
ncsattezzc, denunce per diffama- 
zione. 

Elisa 

□ Appassionato di programmi di simu- 
lazione, chiedo dove rintracciare il fa- 
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Probabilmente, nessun altra stampante riunisce in sè tutte 
le straordinarie prerogative della NL-10 una periferica per 
computer estremamente convincente nelle prestazioni e 
nel prezzo NL-10 può contare su fans in ogni settore aperto 
all'Informatica: gestionale, organizzativo, amministrativo, svi- 
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anche Lei concluderà che, con una Star, si può andare molto 
lontano! 
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LA VOCE III 


RAFFAELLO 


Fa parlare e cantare il C64 
secondo come lo pro- 
grammi sen?a l'uso di 
campionatori né sintetiz- 
zatori 

Tutte le parole o le canzo- 
ni cosi prodotte possono 
essere insente come strin- 
ghe m altri programmi. 

Lire 12.000 



Un programma per dise- 
gnare col tuo Comodore 
64 col solo joystick senza 
Koa'a né tavoletta grafi- 
ca. 


Tutti i disegni prodotti 
possono essere memo- 
rizzati ed uti lizzati in altri 
programmi. 


Lire 10.000 



OROSCOPO 

Fa in maniera scientifica 
l'oroscopo personale II 
più completo programma 
astrologico per Commo- 
dore 64 


Lire 12 000 



COMPUTER 

MUSIC 

Un music- editor avanzato 
più per un programma 
luke-box con 27 motivi 
celebri di musica classica 
e leggera da Arcadia a 
Bach. Vivaldi. Zeppelin.. 

Lire 12.000 



GESTIONE 

FAMILIARE 

Tre programmi su casse! 
ta che giustificano rag 
gettivo "domestico" del 
tuo computer. 

• bilancio familiare; 

• dieta equilibrata. 

• scheda medica fami- 
liare. 

Gira su C/64/ 128 

Lire 12.000 




BANCA OATI 


Un potente data base per 
C/64 e Spectrum dispo- 
nibile anche su disco 
L'edizione su cassetta 
contiene da un lato la ver- 
sione C64 e dall'altro la 
versione Spectrum 

Lire 12 000 



— - 


DICHIARAZIONE 
DEI REDDITI 
(740/S) 

Programma agg-ornato al 
1986 per la dichiarazione 
dei redditi modello sem- 
plificato Por C64 

Disco Lire 24.000 
Cassetta Lire 10.000 



MATEMATICA 

FINANZIARIA 


Pubblicato a puntate su 
Commodore (n. ri 13. 14 e 
15) e su Personal Com- 
puter (n n 1.2. 3 e 4) que- 
sto programma offre un 
vero e proprio corso com- 
pleto di ragioneria su 
Commodore 64. 

Se ne consiglia l acquisto 
insieme agi< arretrati delie 
riviste che ne illustrano 
l'uso ea il funzionamento. 

Disco lire 20 000 
Cassetta Mre 10.000 

Comodore 13. 14 e 15 e 
Persona* Computer 1, 2. 
3 

Lire 21.000 



ANALISI 
01 BILANCIO 


Naturale completamento 
di "Matematica Finanzia- 
ria' questo programma 
consente di calcolare au- 
tomaticamente tutti i ratio 
più significativi e di con- 
frontare duo bilanci delio 
stesso ente 

li testo esplicativo é stalo 
pubblicato su Personal 
Computer n.n 2. 3. 4 e 5 
che s« consiglia di acqui- 
stare contemporanea- 
mente. , 

D«sco Lire 20.000 
Cassetta Lire 10.000 

Personal Computer 2. 3. 

•e 5 Lice 12 000 



ARREDARE 


Un programma proles- 
stonale per ottimizzare le 
soluzioni d'arredamento 
della vostra casa 
N B. gira solo sotto Si 
mon's Basic 

Disco Lire 20.000 
Cassetta Lire 10.000 



QRAFHIC 
EXPANDER 12t 


Un potente programma 
grafico per il c 1 28 m mo- 
do 128. 

Lire 27.000 


Sì, inviatemi seguenti software al prezzo di listino + Lire 3 000 per spese di spedizione: 


□ RAFFAELLO 
D LA VOCE III 
D OROSCOPO 

□ COMPUTER MUSIC 

O GESTIONE FAMILIARE 

□ BANCA DATI 


□ MATEMATICA FINANZIARIA/DISCO 

□ MATEMATICA FINANZIARIA/CASS 
D MATEMATICA FINANZIARIA/RIVISTE 

□ ANALISI DI BILANCIO/DISCO 

□ ANALISI DI BILANCIO/CASS. 

□ ANALISI DI BILANCIO/RI VISTE 


□ DICHIARAZIONE DEI REDDITI/DISCO 

□ DICHIARAZIONE DEI REDDITI/CASS. 

□ ARREDARE/DISCO 

G ARREDARE/CASSETTA 

□ GRAPHIC EXPANDER/DISCO 


Valore complessivo Lire 

Su tale imporlo mi praticherete lo sconto del 10% in quanto abbonato a C Commodore Computer Club □ Personal Computer □ Com- 
puter □ VR Videoregistrare Pertanto vi invio la somma soltanto di lire 


□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

B an ca per lire voi intestato. 


C Contentandomi de* normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale N, 37952207 

intestato a Systems Editoriale - V ie Famagosta, 75 - 20142 Milano. 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta. 75 - 20142 Milano. 
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Fin dallo sbarco in Italia della Commodore Commodore Computer Club è il punto di rife- 
rimento di tutti gli utenti di C/64, Vie 20, C/16, Plus 4 ed ora di PC 10/20 
ed Amiga. 

Articoli didattici, recensioni e programmi istruttivi ed a basso costo 
hanno fatto di Commodore Computer Club la prima rivista 
italiana d'informatica. 

Ma,per i lettori, Commodore Computer Club non è solo rivista: è 
consulenza telefonica gratuita, software originale pubblicato a late- 
re dalla stessa casa editrice, un ponte verso Finformatica “maggio- 
re" anche attraverso la collaborazione con le riviste sorelle "Perso- 
nal Computer " e Computer 
E' per questa ragione che, anno dopo anno, aumenta il numero dei lettori che preferiscono ri- 
cevere la rivista in abbonamento invece di acquistarla in edicola. Ad essi l'editore riserva una 
serie di vantaggi esclusivi come: 

• un libro in omaggio da scegliere tra i titoli disponibili della collana I libri di Systems*; 
•Fuso di una linea telefonica speciale per richieste di consigli, e consulenza, il cui numero e le 
modalità d'uso verranno comunicate in forma riservata alla ricezione deH'abbonamento; 
•un canone annuo particolarmente interessante di lire 40.000 per 1 1 fascicoli di Commodore 
Computer Club e di lire 35.000 per 1 1 fascicoli di Personal Computer; 

•l'esclusivo canone cumulativo di lire 65.000 per 1 1 fascicoli di Commodore Computer Club ed 
1 1 di Personal Computer, 

•uno sconto del 10% su tutti gli acquisti per corrispondenza dei prodotti software su disco o 
cassetta, fascicoli arretrati o libri della Systems senza limiti di quantità. 


* / titoli disponibili sono quelli reclamizzati sull'apposita pagina pubblicitaria "La libreria di Systems ". 


Inviatemi in omaggio il volume della collana i libri di Systems. 

Registrate oggi stesso il mio abbonamento a: □ Commodore Computer Club (Lire 40.000) 

D Commodore Computer CI ub+ Personal Computer (Lire 65.000) 

□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Banca per lire voi intestato 

□ Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire a mezzo C/C postale N. 37952207 

intestato a Systems Editoriale - V ie Famagosta. 75 - 20142 Milano. 
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Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta, 75 - 20142 Milano. 
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ACCESSORI ■ V, 



PER COMPUTER 
HOME E PERSONAL 


PROGRAMMATORE DI EPROM per 
c64. Interfaccia per la programma- 
zione delle eprom. Permette di 
archiviare su EPROM i Vostri pro- 
grammi o le utility di maggior 
uso. Completo di software 
su disco e istruzioni. 

Art. CD 925 

L. 160.000 


VENDITA PER CORRISPONDENZA 


COMPUTER 

NOVITÀ 

CAVO CENTRONICS AMIGA Art. CD 1 12 
O.M.A. su cartridge per c64 Art. CD 130 
Trasferisce il soft protetto e TANTE altre utiliti. 

FREEZ FRAME per c64 Art. CD 132 
Sprotettore di programmi su nastro e su disco 
SPROTEC/64 (isepic) Art. CD 910 
Per sproteggere i programmi del c64 
DIGITALIZZATORE AUDIO per c64 Art CD 915 
trasforma le voci in segnali digitali. 

Soft su disco 

SPEED CONTROLLER per c64 Art CD 920 

Cartuccia per ottenere l'effetto moviola. 

CARTRIDGE DI PROGRAMMAZIONE 
EPROM per il CD 925. Art. CD 930. 
Evita il caricamento del soft dal disco. 
MODEM 300 baud per c64 



L. 38.000 
L. 60.000 

L. 55.000 

L. 60.000 

L. 89.000 

L. 35.000 
L. 50.000 


L. 156.000 

3 TASTI L. 275.000 


BUONO D. ORDINAZIONE 


NOME 

1 


041X7 

COGNOME 

1 

INDIRIZZO 

1 


N 

C A P 

1 

CITTA 


PROVINCIA 

l_ 1 

P IVA a/o Cod Fiec 

VOGLIATE INVIARMI IN CONTRASSEGNO 

Qt 

Cod. Art. 

L. 

Qt 

Cod Art. 

L. 

Qt 

Cod Art 

L 

Qt. 

Art. 

L. 

PAGHERÒ AL POSTINO 

L. 


PIU SPESE POSTALI 

PER ORDINI TELEFONICI: 0522/661471-661647 


Dupllcetora 

Copi* con un reg*tlrslore oormilt Puf 
c04 c1?8 ve 20 

Copiatore propramml 

Copia con due rug.*ir«n commodoro 
Per c64 ve 20 ci 28 

intarlacela radio 

Coiiogr la radio al computar Par c64 
c 1 20 o vie 20 

Kit alllnaamanto registratori 

c 04 c 1 20 v *c 20 Kit con strumento 
• ndeat ora nastro a cacc «avita 

Alimentatore 

par c04 a ve 20 
•altana tampona 

con battana ncanceMi Alimenta il 
C04 o vie 20 in aaaan/a ó* corranta par 
30 ’ 

Commulatora antanna tv/computar 
latto rata! par c64 #<20 
Turbo Dot 

Vaio c*rra 4 dmt di caca 6 volta Par 
Commodoro 04 

Panna ottica grafica 
par c04 itoti tu d«tco) 

Panna ottka grafica 
par c04 Itoti tu nastro* 

C affla par Commodoro 
par V>c20 c 10 C04 c 1 28 
Copritattlars In plaalgiatt 
par c04 c t6 v«c20 
Copr itat tiara In stoffa 
par c04 et0 ve 20 
Vatchatta floppy In plaiiglata 
li 40 pr con chiavai 


Art CO 102 L. 20.000 

AH CO 103 l. 30.000 

Art CO 104 l. 30.000 

Art CO 105 1. 40.000 


Ari CD 106 l. 
Ad CO 107 L 


Ari CO 108 l. 
Ad CO 100 l 
Art CO 110 1. 


Ad CD 121 t. 
Ad CO 120 1. 

Ad co 100 1. 
Ari co 750 1 
Ad CD 700 1. 
Ad CO 770 1 


Art. CD 905 

MOUSE-LOGIMOUSE C7 

con software per PCXT 
Art. PC 365 

MODEM V21 V23 seriale 
per PCXT Art. PC 375 

Vatchatta floppy In plaxlglatt 

(* 00 pi con chiava) 

Kit pulizia lattina raglttratora 
Kit pulizia disk drive 
Kit pulizia vldao anfistatico 
Kit pulizia tastlara 
Foratore disk In plastica 
Spaad dot plus Kit 
Valoci/ra il floppy d* circa 20 volta 
Par c04 
Eprom 2704 

utilizzabile con I adit olo CD 020 

Eprom 27120 

utilizzabile con l'articolo CD 025 

Stabilizzatore elettronico di 
tensione 600 W 
Con fiKn e protezioni 
Adattatore joystick por c 16 
Adattatore raglstratorapar ci0 
Nastro Inchiostrato par MT60 
Nastro Inchiostrato par Tally MUSO Ad CD 01 1 
Nastro Inchiostrato par Tally 1000 a 
Honeyweii 

Nastro Inchiostrato par Commodore 
MPS §01 

Nastro Inchiostrato par Commodoro 
MPS 002 

Nastro Inchiostrato par Commodore 
MPS 003 

Pacco carta Iattura facilitata I4"«ir 
600 fogli 

Supporto stampante In plaxlglatt 
-fuma" norme!® 

Supporto stampante In plaxlglatt 
-fuma" rinforzalo 
Disk 6" Singola Faccia Doppia 
Dentlté 10 pazzi 
Disk •" Doppia Faccia Doppia 
Densità 10 pazz* 

Disk 3" Singola Faccia Doppia 
Densità 10 pazzi 
Nastri magnatici CIO digitali 
10 pazzi 

Nastri magnatici CI6 digitali 

10 pazzi 

SCONTI Al SIGNORI RIVENDITORI 
TUTTI I PREZZI SONO COMPRENSIVI DI 
IVA. NON SI ACCETTANO ORDINI INFE- 
RIORI A L. 30.000. 


30 000 
110 000 


0.500 
6 600 
36 000 


30.000 

30.000 
16 000 

13.000 
10 000 
30 000 


L. 360.000 

Ari CD 780 L. 

37 000 

Ari CD 815 L. 

13 600 

Ari CD 820 l. 

20.000 

Ari CO 828 l. 

12.000 

AM CO 830 L. 

10.600 

Ari CD 840 l. 

10.000 

AM CD 900 t. 

60 000 

AM CD 960 t. 

0.000 

AM CD 952 t. 

12.000 

Ad CO 160 l. 430.000 

A.t CD 225 1 

10.500 

An CD 228 L. 

10.500 

Ari CD 810 l. 

14.000 

AM CD 61 1 L. 

10.600 

AM CD 612 L. 

0.600 

AM CO 614 l. 

13.000 

Ari CO 616 l. 

16.000 

AM CD 618 L. 

16.000 

" 


AM CD 630 L. 

13 500 

Ari CD 660 1. 

46 000 

AM CD 670 l 

67.000 

Ari CO 700 L. 

25.000 

AM CD 702 L. 

30.000 

AM CD 703 l. 

00.000 

An CD 712 1. 

20.000 

AM CD 714 t. 

21.000 
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moso “Elisa” in cui il computer imper- 
sona lo psicologo che visita il paziente- 
utente. 

(Affezionato lettore di Coivano) 

• Vi sono numerosissime versioni del 

t 

programma che tu menzioni ed una 
di queste, addirittura, è inserita in u- 
no dei dischetti di “Directory” che 
vendiamo per corrispondenza. In 
questo programma, addirittura, il 
C/64 ti PARLA ricorrendo ad un sin- 
tetizzatore vocale. 

Riproduzioni sonore 

□ Come si può registrare, e riprodur- 
re, un segnale di bassa frequenza con 
un C/64? 

(Stefano Buonomo * Caiazzo) 

• Un segnale di bassa frequenza, del 
tipo che normalmente si può osser- 
vare con un oscilloscopio, può ap- 
partenere ad una infinità di “forme” 
che dipendono dalla frequenza, dal- 
l’ampiezza, dalla presenza di even- 
tuali armoniche e da tantissimi 
altri parametri. 

Per evidenziare una vasta gamma 
di frequenze è indispensabile, ap- 
punto, un oscilloscopio, vale a dire u- 
no strumento che “tratta” la frequen- 
za stessa in tempo reale. Mi spiego 
meglio: in un oscilloscopio, di solito, 
un segnale in bassa frequenza viene 
amplificato e inviato immediata- 
mente ad un circuito elettronico in 
grado di modificare il percorso di un 
pennello di elettroni. Il risultato con- 
siste. appunto, nella traccia visibile 
sullo schermo fluorescente dello 
strumento. 

Utilizzando un computer la faccen- 
da si complica notevolmente: poiché 
un calcolatore può trattare solo “ze- 
ri” e “uni” è indispensabile che il se- 
gnale B.F. venga dapprima esamina- 
to c “tradotto” in un segnale il cui li- 
vello picco-picco sia. appunto, 0-1 
(cioè 0 oppure 5 volt). In seguito è ne- 
cessario suddividere il segnale in esa- 
me in modo da codificarlo per con- 
sentire di passare da una grandezza 
analogica alla corrispondente digita- 
le. Ma non è finita: l'informazione, a 
questo punto, deve essere elaborata c 
inserita nella memoria del computer 
in byte successivi. Un'operazione in- 
versa deve esser compiuta per npro- 
dure la stessa frequenza. 

Come puoi intuire, quindi, il tratta- 


mento di un qualsiasi segnale B.F. è 
piuttosto difficile e diventa addirittu- 
ra impossibile se si pretende di utiliz- 
zare un home computer come affida- 
bile strumento di misura: un fre- 
quenzimetro c un oscilloscopio sono 
sicuramente più attendibili di un 
C/64 dotato di software idoneo. 

Nonostante le difficoltà accennate, 
tuttavia, il chip audio del C/64 è abil- 
mente sfruttato per campionati suo- 
ni che possono esser raccolti da un 
comune microfono. Ma di questo, 
come sài. abbiamo già parlato sul N. 
40 della nostra rivista. 

Differenze 

□ Che differenza c’è tra l>oad e Verify? 
E tra Tab(X) e Spc(X)? 

(Claudio Da (fra - Pavia ) 

• Il comando Load c indispensabile 
per caricare un programma da sup- 
porto magnetico c la sintassi cambia 
a seconda della periferica usata: c 
sufficiente un semplice “Load” per 
caricare il primo programma presen- 
te su nastro, oppure Load “Pippo” 
per caricare, sempre da nastro, il pro- 
gramma dotato di nome “Pippo”. 
Con il disco, invece, è indispensabile 
indicare sia il nome che la peri- 
ferica: Load”Pippo".8 

Con Verify, invece, è possibile veri- 
ficare che il programma presente nel- 
la memoria Ram del computer sia u- 
gualc a quello presente su supporto 
magnetico. Ad esempio, il co- 
mando... 

Verify pippo ". 8 

...permette di verificare eventuali dif- 
ferenze tra il programma presente in 
memoria e quello, di nome “pippo”, 
memorizzato sul dischetto. In caso di 
differenze, anche di un solo byte, 
compare il messaggio “Verify error” 
altrimenti un semplice “OK”. 

Per megio comprendere la differen- 
za tra Tab c Spc, ti consiglio di digita- 
re (e studiare) il seguente pro- 
gramma: 

I 00 print tab( IO) " primo *; 

I IO print tab(10y'secondo " 

1 20 print 

130 print spc( IO) ’ primo * : 

/ 40 print spe( IO) "secondo " 

Come puoi notare (attento alla pre- 
senza dei caratteri di punto e virgola) 
si tratta di un doppione di istruzioni 
Print riferite a “Tab” c “Spc”. 


Facendo girare il programma, la 
prima volta le due parole “Primo c 
“Secondo” appaiono attaccate tra lo- 
ro; con le righe 130 c 140. invece, ap- 
paiono separate tra loro di dieci 
spazi. 

Il comando Tab (utilizzabile, come 
Spc, sempre e solo se preceduto da 
Print) funziona nel modo seguente: 

Se il messaggio successivo a “Pri- 
mo” (cioè: “secondo”) si trova ad una 
distanza dal bordo sinistro superiore 
a quella indicata tra parentesi, allora 
il messaggio “Secondo” viene, ap- 
punto, visualizzato a tale distanza. 
Se, invece, il cursore, al momento di 
eseguire il comando, si trova già ad u- 
na distanza superiore a quella indi- 
cata tra parentesi, il Tab viene ignora- 
to ed il messaggio successivo a Tab 
viene stampato subito dopo quello 
precedente. 

Con Spc. invece, il messaggio pre- 
sente dopo viene sempre visualizzato 
alla distanza indicata tra parentesi. 

Per comprendere meglio il funzio- 
namento del programma proposto, 
prova a sostituire, nelle parentesi di 
riga 100. il valore 10 con 1, 4 c altri 
valori. 

Mal di fegato 

□ Sono il direttore di una rivista di in- 
formatica. Alcuni lettori che possiedo- 
no il C/ 1 28 o il C/ 1 6 si lamentano per- 
chè giudicano eccessivo lo spazio dedi- 
cato al C/64; i possessori di C/64, vi- 
ceversa, considerano uno “spreco” lo 
spazio dedicato al (7128. Mi sta ve- 
nendo il mal di fegato... 

(Alessandro de Simone - Milano ) 

• In casi come questo può essere con- 
sigliato l’amaro medicinale Giuliani, 
ma attenzione: è un medicinale, usa- 
re con cautela. 


Risposte rapide 


Speed Dos 128 

Vi sono in giro molte versioni di 
Spccd Dos, diverse l una dall'altra 
anche in modo sostanziale; ti consi- 
glio di contattare le varie Ditte che le 
commercializzano per sapere se è 
possibile applicarle al tuo calco- 
latore. 

(Marco Crisafulli • Somewhere) 
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Centronics 

Una qualsiasi stampante che di- 
sponga dell'interfaccia Rs-232, IEE- 
488 oppure Centronics, può IN TEO- 
RIA. funzionare correttamente con il 
tuo C/64. Tieni presente, però, che 
devi comprare anche l'interfaccia per 
il calcolatore e il cavo idoneo. Nella 
quasi totalità dei casi, purtroppo, una 
stampante non esplicitamente defi- 
nita “Mps-803 compatibile*', può ma- 
nifestare incompatibilità, soprattutto 
se adoperata con programmi grafici. 

( Pasquale Virgilio • Amina ) 

(Pasquale Mobile - Taviano) 

Linguaggio Macchina 

Il numero monografico di Commo- 
dore dedicato al linguaggio macchi- 
na c alla grafica si riferisce al LM del 
microprocessore 6502. Gli altri argo- 
menti (interrupt, raster. eccetera) so- 
no invece specifici dei computer su 
cui il microè montato. Stiamo prepa- 
rando, comunque, un secondo nu- 
mero monografico su tali argomenti 
e ti promettiamo che i vari inconve- 
nienti lamentati (tra cui la mancanza 
della tabella, pubblicata, poi. su CCC 
N.40) non si ripeteranno. 

(Man o Neri - S Giorgio a Cremano) 

Wordstar 128 

Purtroppo non sono in grado di sta- 
bilire le cause del malfunzionamen- 
to del tuo C/ 128 con il word processor 
Wordstar; penso, tuttavia, che il moti- 
vo sia da addebitare alla stampante 
che hai collegato, una Panasonic Kx- 
P1092, che, come quasi tutte le stam- 
panti non Commodore compatibili, 
crea questi (e altri) problemi. 

(Mario Leoncini - Siena) 

Graphic Expander 128 

Il nostro prodotto, Graphic Expan- 
der C 1 28, idoneo per gestire la grafica 
in alta risoluzione con il C/128 in 
modo 80 colonne, è venduto cooreda- 
to da un demo che, studiato opportu- 
namente. consente di apprezzare le 
potenzialità dei nuovi comandi. Ol- 
tre alla sintassi delle istruzioni ag- 
giuntive (pubblicate su CCC N.35). 
infatti, solo un programma dimostra- 
tivo è in grado di illustrarne le molte- 
plici applicazioni. Perciò che riguar- 
da la cassetta non funzionante, ri- 
mandacela per la sostituzione. 

(Carlo Rondo - Cassano Jonio) 


Directory 

Per problemi organizzativi non ci è 
possibile, almeno per ora, distribuire 
il dischetto “Directory" nelle edicole. 
L'idea, alla quale stiamo pensando 
da tempo, non è comunque del 
tutto accantonata. 

{ Maurizio Brigami - Roma) 

Ci dispiace, ma... 

Il programma che ci hai inviato 
non risponde alle nostre esigenze. Ti 
consiglio di telefonare prima di in- 
viare un lavoro in modo da verificare 
se vale la pena spedirlo: una telefo- 
nata in tcleselczionc (effettuabile, 
magari, di pomeriggio) costa molto 
meno del dischetto e dell'affrancatu- 
ra di un pacchetto raccomandato. 
(Ferdinando Andrena - Coivano) 

Turbotape e videogame 

Non sempre un'utility in linguag- 
gio macchina (come, appunto, il tur- 
bo tape) può “convivere" con altri 
programmi, specie se sono scritti 
anch’essi in LM; forse è questo il mo- 
tivo per cui alcuni programmi, cari- 
cati con il T/t in tuo possesso, man- 
dano in Crash il sistema. 

(Antonio Miccoli • Lecce) 

I tasti del C/128 

La tastiera del C/ 128 in tuo posses- 
so consente, a seconda se premi, o 
meno, il tasto Ascii/CC. di utilizzare 
la tastiera stessa in modo Qwerty op- 
pure Qzcrty (i primi sci tasti della se- 
conda fila) che sono i due principali 
tipi di tastiere esistenti. Puoi scegliere 
l una o l'altra indifferentemente, ma 
solo se sei in modo 1 28. In modo 64 la 
tastiera funziona sempre come se 
fosse Qwerty. Vi sono molte stam- 
panti 803-compatibili ed un loro c- 
lcnco completo sarebbe impossibile, 
specie se "slegato" da considerazioni 
suU'affidabilità degli importatori. 
(Samuele Faraon • Somewhere) 

Mouse 1 

II mouse da noi proposto sul N.34 è 
costituito da due potenziometri a slit- 
ta; quello della Commodore è invece 
di tipo elettromeccanico c ciò spiega 
l'incompatibilità del nostro mouse 
con il programma Geos. 

(Alessandro V'illa maina - Genova ) 

% 

Mouse 2 

Se sei esperto nei montaggi elettro- 
nici. la costruzione del simulatore di 


mouse non dovrebbe rappresentare 
un pericolo. In caso contrario ti scon- 
siglio di metterti all'opera. 

(branco Berta - Montalenghe) 

Agenda 

Non abbiamo pubblicato un pro- 
gramma per la gestione di un'agen- 
da. In commercio ve ne sono molti e, 
al limite, anche un Data Base, se ben 
programmato, può simularne le fun- 
zioni. 

(Stefano Giannini - Firenze) 

Syntax Error 

11 tuo computer segnala errore per- 
chè il listato che hai digitato presup- 
pone, come chiaramente spiegato 
nell'articolo che citi, il preventivo ca- 
ricamento delle routine grafiche di 
Toma. 

( Maunzio Guidi - Calcinaio) 

Compatibilità 

Solo la Ditta che tu citi può comu- 
nicarti se l'apparecchio posto in ven- 
dita c compatibile, o meno, con il tuo 
C/16. Scrivi (o telefona) alla Ditta in 
questione: noi non possiamo sapere 
tutte le caratteristiche dei numerosis- 
simi accessori commercializzati. 
(Giovanni Turturrv - Giovi nazzo) 

Come procurarsi 

I nostri prodotti (riviste, cassette c, 
tra breve, anche dischi) sono normal- 
mente distribuiti in edicola. Per pro- 
curarsi gli arretrati è sufficiente leg- 
gere le nostre pagine appositamente 
dedicate al servizio offerto. Se. tra i 
nostri annunci, manca il prodotto 
che ti interessa, telefona al servizio 
arretrati per sapere se è disponibile 
(Tel.02/84.67.348. chiedendo della si- 
gnora Lucia). 

Cavetto difettoso 

Quasi certamente il cavetto che col- 
lega il drive al computer è da cambia- 
re: forse è presente qualche corto cir- 
cuito interno oppure non è ben inse- 
rito nella sua sede. 

(Enrico Zogno - Al pigna no) 

Amiga e Ms-Dos 

I nuovi modelli di Amiga sembre- 
rebbero (il condizionale è d'obbligo) 
compatibili con lo standard Ms-Dos 
e non richiedono il (costoso) acces- 
sorio Sidecar, “accontentandosi" di 
una scheda aggiuntiva. Non appena 
ne sapremo di più, ne parleremo. 
(Alessandro Rubino • Napoli) 
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Purché funzioni! 


Ovvero: come attivare, da LM, 
le funzioni matematiche del C/64 


di Giancarlo Mariani 


nauti di voi. programmando in 
LmT si sono trovati ili fronte al pro- 
blema ili far calcolare al C/64 il valo- 
re di una funzione matematica o 
trigonometrica? 

In Basic è molto facile: basta im- 
partire un banale Print Funz(arg) ed 
il computer provvede. 

In LM, invece, il problema non è 
semplice anche possedendo una cer- 
ta conoscenza del 6502 e avendo a di- 
sposizione il disassemblato com- 
mentato del S.O. del computer 

Le routine che calcolano i valori 
delle funzioni sono già allocate, co- 
me e intuitivo, nelle Rom del S.O. e 
non sarà quindi necessario riscriver- 
le: basterà trovare un modo per “pas- 
sare” loro l'argomento e per leggere il 
risultato. Quest'ultimo risulta essere 
l'unico problema da risolvere, perchè 
per il resto basta un salto alla routine 
appropriata.... ed il gioco è fatto. 

E' bene sottolineare che le funzioni 
trattate in questo articolo sono tutte 
ad un solo argomento (del tipo Sin. 
Log. Tan, eccetera) e non del tipo 
And. Or e simili. 

Tali funzioni accettano, come in- 
gresso, un numero reale in virgola 
mobile (detta Floating Point o, più 
semplicemente, I I P) e forniscono 
un risultato a neh ‘esso di tipo FLP. 
Poiché i numeri FLP sono piuttosto 
“duri” da trattare in LM (essendo for- 
mati da ben 5 byte), ho trovato il mo- 
do di semplificarne la gestione, tra- 
sformandoli in numeri interi a due 
byte, nella consueta forma byte bas- 
so-byte alto, notazione ben più co- 
moda da trattare in LM. 

Si intuisce che. pur perdendo i deci- 
mali e limitando il “range" dei risul- 
tati. si ottiene il vantaggio di una no- 
tevole semplificazione delle opera- 


zioni. 

Ma andiamo per gradi, cercando di 
capire prima come si fa a costruire u- 
na breve routine in LM che permetta 
di determinare il valore di una fun- 
zione. Ci riferiremo, nel prossimo e- 
sempio, ad una funzione scelta a ca- 
so tra quelle presenti: la radice qua- 
drata (SQR). 

Un primo esempio 

11 segmento di S.O. che implementa 
tale funzione è posto a partire dall'in- 
dirizzo esadecimale $BF7I. Per uti- 
lizzarlo basterà trascrivere, nell’ac- 
cumulatore FLP n.l (che è una parti- 
colare zona del C/64, usata come me- 
moria di transito per i numeri in vir- 
gola mobile) l’argomento della stessa 
radice, richiamare, tramite JSR, la 
routine di SQR. ed infine leggere il ri- 
sultato. sempre dal FLP ACC#1. 

Provate, servendovi di un monitor 
di LM (o del caricatore Basic qui ri- 
portato), a digitare il brevissimo pro- 
grammino, partendo da un indirizzo 
qualsiasi (ad esempio 8192, $2000): 

$2000: 

JSR $AEFD; controlla virgola 
JSR $AD8A : n. reale dopo la virg. 
JSR $BF71; Esegue SQR 
JMP $AABC; Stampa n. FLP 

Oppure, in Basic, da 49152: 

100 data 32,253, 174,32. 138, 173,32, 
113, 191,76, 188,170 
110 for i =49152 to 49152 + 1 1: read 
xrpokei.x: next 

120 input ,, numero ,, ;n 
130 sys 49152,n: goto 120 

Dopo aver impartito il comando 
Sys, insomma, sullo schermo verrà 
stampato il numero reale che rappre- 


senta il risultato della radice eseguita 
(verificate, magari, tramite un bana- 
le: Print Sqr (arg)). 

Tentando di attribuire alla variabi- 
le “N” un valore negativo, compare il 
familiare lllcgal quantity”. 

Vediamo di capire come funziona 
la routine: Il primo JSR (JSR 
SAEFD) serve solo per controllare la 
presenza della virgola dopo il co- 
mando SYS. La routine S.O. posta in 
$AD8A. che richiamiamo con il se- 
condo JSR, serve a “catturare” il nu- 
mero reale scritto dopo la virgola, a 
trasformarlo in FLP, ed a trasferirlo 
nel FLP ACC#I. 

Il calcolo della radice viene esegui- 
to, come spiegato prima, dal JSR 
SBF71 che provvede anche a trasferi- 
re il risultato (sempre in FLP) nel- 
l'ACC# 1. 

L’ultimo JMP (JMP SAABC) ri- 
chiama una parte del comando Basic 
“Print”, che stampa il risultato in for- 
ma di numero reale. 

La spiegazione dell'uso delle fun- 
zioni in LM potrebbe esaurirsi qua; 
ma dal momento che è impensabile 
trattare numeri in FLP direttamente 
in LM (senza cioè l'ausilio del Basic) 
bisognerà convertire questi numeri 
in una forma più direttamente tratta- 
bile dal LM. 

Direttamente in LM 

La forma più semplice per trattare i 
numeri in LM è la solita “byte basso- 
byte alto”, anche se. purtroppo, limi- 
ta il “range” degli argomenti e dei ri- 
sultati dell’intervallo 0-65535 ed eli- 
mina i decimali, a patto che vi accon- 
tentiate di ritenerli poco frequenti la- 
vorando in LM. 
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Le routine per il calcolo delle fun- 
zioni accettano, in ingresso, un nu- 
mero FLP; bisognerà quindi conver- 
tire il numero intero in numero FLP. 
Esaminiamo una possibile modifica 
da apportare al programmino visto 
prima: 


$ 2000 : 

JSR $AEFD: 
JSR $AD8A; 

JSR $B7F7 ; 

LDA $14 ; 

LDY $15 
JSR $8391; 

JSR SBF71; 
JMP $AABC; 


Virgola 
Prende il n. 
compreso tra 
0 e 65535 e lo 
mette in $14/$ 15 
Trasferisce num. 
in A/Y 

Trasforma num da 
int (A =lo/Y =hi) a FLP 
Calcolo SOR 
Stampa FLP 


Tralasciando la spiegazione del 
JSR SAEFD. si notano due JSR posti 
subito dopo. Questi salti al S.O. ser- 
vono per leggere il numero intero 
compreso tra 0 e 65535 posto dopo la 
virgola ed a metterlo nella forma byte 
basso byte alto nelle locazioni 
S14/S1 5. 


La routine posta a SB391 trasforma 
il numero intero contenuto in A (lo) e 
V (hi) in numero FLP e deposita que- 
sto risultato nel FLP ACC#1. 

A questo punto il programma può 
continuare come il precedente, ossia 
con il calcolo della radice quadrata 
(JSR SB7F1) e con la stampa del ri- 
sultato (SAABC ). 

Naturalmente, oltre ad avere un 


numero intero come ingresso, per al- 
cuni programmi può necessitare lo 
stesso tipo di risultato. Per fare una 
cosa del genere, potremo ovviamente 
tener valida tutta la prima parte del 
programma visto prima, limitandoci 
ad aggiungere la parte che occorre 
per trasformare il risultato della radi- 
ce da FLP a intero. 

Vediamo che forma può avere una 
routi netta adatta allo scopo: 

$ 2000 : 

JSR SAEFD 
JSR $AD8A 
JSR $B7F7 
LDA $14 
LDY $15 
JSR $B391 
JSR $BF71 

JSR $B7F7; Converte n. in 

FLP ACC# 1 a n, 
intero in $14/$ 15 
LDX $14; Trasferisce 

num. in X/A 

LDA $15 

JMP $BDCD; Stampa intero 

cont. in X (lo) 
e A (hi) 

La prima parte (fino al JSR $BF7 1 ) 
non è commentata (è uguale a quella 
di prima). Poiché il risultato è un nu- 
mero in virgola mobile, bisognerà ri- 
chiamare la routine del S.O. (posta a 
$B7F7)che provvede a trasformare il 
numero FLP. contenuto nel FLP 
ACC#1, in numero intero a 16 bit. 
contenuto nelle locazioni S14 (lo) c 
SI 5 (hi). 


Il JMP SBDCD provvede a stampa- 
re su video il numero intero contenu- 
to in X (lo) e A (hi). 


Tabella degli indirizzi 
di funzioni disponibili 
ne! C/64 

SOR = $BF71 
LOG = $B9EA 
EXP = $BFED 
COS = $E264 
SIN - $E26B 
TAN - $E2B4 
ATN = $E30E 
RND = $E097 

Nella tabella riportata sono indica- 
ti gli indirizzi di partenza delle routi- 
ne matematiche e trigonometriche 
del C/64. Per utilizzarle sarà suffi- 
ciente sostituire l'indirizzo SBF71. 
relativo alla radice quadrata, con 
quello desiserato. 


SCHEDA TECNICA 

Osservazioni ed esempi sull'utilizzo 
di alcune routine del Sistema Ope- 
rativo. 

Note valide per computer C/64 e non 
adattabili ad altri computer Com- 
modore 

Consigliato a chi già conosce gli 
argomenti base del Linguaggio 
Macchina. 


WAMT£D== 

I-a redazione di Software Club, per progetti speciali della Systems Editoriale, ricerca 
collaboratori full-time oppure part-time. 

I candidati ideali: 

• sono in possesso di un sistema Commodore completo (64/128 o C16/Plus4 o Vie 20 + disk drive, 
stampante ecc.). 

• Sono in grado di sviluppare autonomamente programmi sia in Basic che in assembler. 

• Risiedono a Milano o nel suo hinterland. 

I coni pensi saranno sempre commisurati alle effettive capacità e comunque fìssati in base ai migliori 
standard di mercato. 

Per ulteriori informazioni telefonare nei giorni martedì, mercoledì e venerdì dalle 1 5 in poi, in 
redazione (02/8467348) chiedendo di Michele Maggi o Marco Miotti. 
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SPAZIO AMIGA 


Cara Amiga, ti scrivo... 


Come scrivere file di testo con l’Amiga, limi- 
tandosi ad usare CU; ed una chiacchierata 

su II 'Amiga Basic 


di ÌJii0 < illegali 


Un file si dice di tipo "BATCH” 
quando contiene un insieme di co- 
mandi di AmigaDOS scritti esatta- 
mente come se fossero digitati da ta- 
stiera in modo CLI. 

Non tutti sanno che quando si inse- 
risce il disco Workbench, dopo la ri- 
chiesta del computer, viene automa- 
ticamente ricercata, nella directory 
denominata *Y\ un file “batch” in 
grado di inizializzare il sistema. 

Sul dischetto originale esiste (a me- 
no che non abbiate combinato pa- 
sticci...) la directory V* in cui è pre- 
sente un file chiamato “startup-se- 
quence”: questo contiene, appunto, 
una lista di comandi che “configura- 
no" il sistema. Vedremo in futuro co- 
me sia oppoiiu no manipolare i con- 
tenuti di tale file per ottenere la auto- 
configurazione del vostro sistema 
quando lo doterete di nuove periferi- 
che. come ad esempio un secondo 
disk drive, un hard-disk. o una inter- 
faccia video. 

Lsiste. in AmigaDOS. un comando 
che visualizza un file cosi come è pre- 
sente sul disco, a patto che i byte che 
lo compongono siano codici Ascii 
che significhino qualcosa; si tratta di 
“Type“, la cui forma sintattica com- 
pleta è la seguente: 

TYPE (E ROM) nomeorig ((TO) nome- 
desi) (OPT N o OPT H) 

La parola From. come indicano le 
parentesi, è opzionale se il nome che 
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segue Type è quello del file sorgente; 
se specificata deve essere seguita dal 
nome del file interessato. 

La parola TO segue la stessa regola, 
per il nome del file o della periferica 
(stampante, interfaccia seriale, ecce- 
tera) al quale deve essere inviata l’u- 
scita di Type; ovvero è opzionale se il 
secondo nome specificato è quello 
della destinazione; se specificato de- 
ve essere seguito dal file/periferica di 
destinazione. Per default, se non si 
specifica nulla, l’uscita è inviata alla 
finestra video corrente. 

Le due opzioni possibili sono OPT 
N e OPT H 

Se si accoda al comando la prima 
di esse, ogni linea, in Output, viene 
preceduta da un numero progressivo, 
come se fosse un listato Basic del 
C/64. Si noti che Type considera ter- 
minata una linea se è presente un co- 
dice Ascii di “line-feed” (dee. 10 
Hex.OA). 

Specificando l'opzione OPT H, in- 
vece. si ottiene la visualizzazione del 
file in codice esadecimale. seguita 
dai corrispondenti caratteri Ascii. 
Quest’ultima forma sintattica è indi- 
spensabile per esaminare file non di 
testo che creerebbero confusione sul 
video se non, addirittura, l’inchioda- 
mento della macchina. 

Le due opzioni, come è intuitivo, si 
escludono vicendevolmente. 


Per esaminare il file batch di inizia- 
lizzazione di Workbench. presente 
sul dischetto in vostro possesso, pro- 
vate con: 

T^pe workbenchs/startup-sequence 
T^pe workbench.s/startup-sequence 
OPT H 

Type workbench :s/stanup-sequence 
OPT N 


L’Editor 

Come in tutti i sistemi operativi che 
si rispettino, Amiga DOS prevede un 
editor di file, ovvero un programma 
che permette di creare un file da 
tastiera. 

Per la precisione esistono due edi- 
tor: uno chiamato “ED”, di tipo “a 
tutto schermo”, ed uno chiamato E- 
DIT 'orientato alla singola linea”, 
meno immediato da usare, ma per 
certi versi più comodo. 

Ciascuno dei due possiede nume- 
rosissime opzioni, tali da renderli 
molto simili ad un vero programma 
di videoscrittura. Ad esempio è possi- 
bile fissare tabulatori, spostare, can- 
cellare, copiare parti di testo, conver- 
tire minuscole in maiuscole, ricerca- 
re e/o sostituire parole, eccetera. 

Tali editor risultano indispensabili 
per creare file "batch”, oppure per 


modificare quelli presenti su dischi 
commerciali o, addirittura, sul nostro 
Workbench. 

Parliamo prima dell’editor a tutto 
schermo. Per attivarlo da CLI si usa 
un semplice: 

ED (FROM) nomefile (( SIZE ) nu- 
mero) 

Le parole FROM e SIZE sono op- 
zionali, ma da specificarsi se si vuole 
indicare prima il parametro “nume- 
ro” e poi "nomefile”. Il nome del file 
può riferirsi ad un file esistente sul 
disco, oppure no. 

Nel primo caso il file viene caricato 
pronto per essere modificato, nel se- 
condo caso verrà creato "ex novo”, nè 
più nè meno, insomma, di ciò che ac- 
cade con il CP/M o con l’Ms/Dos. 

Il "numero” è opzionale, come in- 
dicano le parentesi, e si riferisce al 
numero di byte da usarsi come “buf- 
fer” per l’edizione. Nel caso si stia 
modificando un file, il sistema prov- 
vede a calcolare la quantità necessa- 
ria; ma nel casosi vogliano aggiunge- 
re molti caratteri ad un file da modi- 
ficare, oppure si voglia creare un file 
piuttosto voluminoso, è bene indica- 
re un numero di byte abbondante, 
per sicurezza. 

Ad esempio, per creare un file chia- 
mato "mary” sul dischetto inserito 
nel drive interno, nella directory “s’\ 
con un massimo di circa 1000 carat- 
teri, si potrebbe usare: 

ED s/mary 1000 

Una volta entrati nell’editore, si 
può creare il testo Ascii desiderato. Si 
ricordi che il tasto di Return inserisce 
un "line-feed”, che i tasti di cursore a- 
giscono sull’intero schermo e che esi- 
stono due modi per impartire co- 
mandi: un modo DIRETTO ed un 
modo ESTESO. 

Nel primo si agisce semplicemente 
premendo una combinazione di due 
tasti oppure un tasto dedicato 
(BACKARROW per cancellare il ca- 
rattere precedente, DEL per il carat- 
tere presente sotto il cursore). 

Il secondo modo si ottiene pigian- 
do prima il tasto ESC; in questo caso 
appare un asterisco sull’ultima linea 
dello schermo ed è possibile digitare 
da tastiera il comando voluto. 
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Per solo dovere di cronaca, e di 
completezza, elenchiamo qui di se- 
guito. pur se in modo succinto, i co- 
mandi disponibili. 

Questi, come per qualsiasi Editor 
presente sui numerosi Sistemi Ope- 
rativi, risentono dell'arcaicità di un 
simile modo di operare. 1 comandi, 
infatti, sono talmente numerosi (e so- 
prattutto difficili da ricordare) che è 
piuttosto raro, al giorno d’oggi, trova- 
re chi, per scrivere un file, ricorra al- 
l’Edit di sistema piuttosto che a pro- 
grammi specifici, molto vicini ai co- 
modi Word processor, che consenta- 
no una più agevole stesura di un 
qualsiasi testo. 

Ecco ora i numerosi comandi, di- 
sponibili con ED, che si possono ot- 
tenere mediante la pressione succes- 
siva di alcuni tasti: 

Modo diretto: 

• Tasti cursore: spostano sul video 
il cursore 

• Tab. oppure Ctrl-1 : spostano in a- 
vanti di una posizione il cursore. 

• Ctrl U: sposta il testo verso l'alto 

• Ctrl D: sposta il testo verso il 
basso 

• C trl E: sposta il cursore verso la pri- 
ma/ultima linea 

• C trl T: sposta il cursore all'inizio 
della parola successiva 

• Ctrl R: sposta il cursore indietro di 
una parola. 

•Ctrl: sposta il cursore aH inizio/fine 
della linea attuale 

• Backspace (oppure Ctrl H): cancel- 
la il carattere presente prima del 
cursore 

• DEL: cancella il carattere posto sot- 
to il cursore 

• Ctrl A: inserisce una linea nuova, 
vuota, sotto quella attuale 

• Ctrl B: sopprime la linea corrente, 
ove si trova il cursore 

• Ctrl O: cancella la parola o lo spa- 
zio dopo il cursore 

• Ctrl Y: cancella una linea dal curso- 
re sino alla fine 

•Ctrl F: commuta in maiuscolo (mi- 
nuscolo) il carattere che si trova sotto 
il cursore 

• Ctrl V: verifica lo schermo 

• Ctrl G: ripete l'ultimo comando del 
modo dei comandi estesi 

• Ctrl V: verifica la correttezza 
dello schermo 


• ESC o Ctrl: attiva il modo dei co- 
mandi estesi 

Questi sono i comandi disponibili nel 
modo "extended": 

• Cs: sposta il cursore all'inizio 
della riga 

• Ce: sposta il cursore alla fine 
della riga 

• CI: sposta il cursore di una posizio- 
ne verso sinistra 

•Cs: sposta il cursore di una posizio- 
ne verso destra 

• N: pone il cursore all'inizio della li- 
nea successiva 

• P: pone il cursore all'inizio della li- 
nea precedente 

• T: pone il cursore all'inizio (Top) 
del file 

• B: pone il cursore alla fine (Bottom) 
del file 

• D: sopprime una riga intera 

• De: elimina il carattere sotto il 
cursore 

• I/k: inserisce la linea “k” sopra la ri- 
ga attuale 

• A/k: inserisce la linea “k” sotto la ri- 
ga attuale 

• S: spezza in due la riga alla posizio- 
ne del cursore 

• J: unisce la riga attuale e la 
susseguente 

• Sic: fissa il margine sinistro in posi- 
zione “c” 

• Sre: fissa il margine destro in posi- 
zione “c” 

• Ex: aumenta il margine sinistro co- 
munque sia 

• Stn: fissa ad “n“ la distanza dei 
tabulatori 

• Sh: visualizza- lo stato (margini, 
tabulatori...) 

• U: cancella l'ultima variazione 
fatta 

• Sa/n/: salva il file con nome “n” 
sul disco 

• If/n/: inserisce il file “n" a partire 
dal punto in cui si trova il cursore 

• ; (punto e virgola): permette un altro 
comando sulla stessa linea 

• () (parentesi): ingloba i comandi 
per ripeterli 

• Rp: ripete i comandi sinché non in- 
corre in errore 

• Q: esce dall'editor senza salvare il 
file 

• X: esce dall'editor salvando il file 
con le variazioni eventualmente 
apportate 


• #: ripete il comando per un numero 

di volte 

Esistono anche alcuni comandi del 
modo " extended “ che operano su di un 
blocco di linee per volta. 

• Bs: fissa l'inizio di un blocco 

• Bc: fissa il termine di un blocco 

• Db: cancella il blocco prima 
delimitato 

• Ib: inserisce il blocco prima 
delimitato 

• Sb: mostra sullo schermo il 
blocco 

• Wb/n/: inserisce il blocco nel file di 
nome “n” 


L’Editor di linea 

Viene attivato da CLI con un co- 
mando del tipo: 

ED/T / ROM orig TO dest WTTH coma 
VER dire OPT opz 

Le parole sono opzionali solo 
quando i parametri vengono specifi- 
cati ordinatamente come indicati. 

“Orig'' rappresenta il nome del file 
da elaborare ed è, ovviamente, tas- 
sativo. 

“Dest” rappresenta il nome del file 
dove memorizzare il frutto del nostro 
lavoro. 

“Coma” indica il nome di un file 
che viene usato come ingresso alla li- 
nea comandi dell'editor e che deve 
contenere una serie di parole accetta- 
bili come tali. 

Dire” permette di stabilire il devi- 
ce logico o il file ove inviare i messagi 
di errore eventualmente prodotti 
dall'editor. 

La parola “OPT” può essere seguita 
da “W” o “P” a loro volta seguite da 
un numero: dopo “W” si deve specifi- 
care la lunghezza massima della li- 
nea, dopo la “P" il numero massimo 
di linee. 

Quando viene attivato per la prima 
volta. I'editor comincia ad elaborare 
la prima linea, memorizzandola nel 
cosiddetto “buffer” di edizione e ne 
permette l'elaborazione tenendo 
conto della serie di comandi elencati 
di seguito. 
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Le varie linee, a mano a mano che 
procede l'elaborazione, vengono 
puntate dal cosiddetto “current line 
marker . che può essere controllato 
da alcuni dei comandi delfeditor: 
spostando il puntatore dalla linea la 
si memorizza nel buffer di uscita, 
pronte per essere effettivamente me- 
morizzate quando si esce dall’edi- 
tor. 

Ecco, di seguito i comandi dispo- 
nibili : 

• (minore) <: sposta a sinistra il pun- 
tatore di carattere 

•(maggiore) ): sposta a destra il pun- 
tatore di carattere 

• PR: resetta il puntatore di ca- 
rattere 

• (percento) %: trasforma il carattere 
puntato in maiuscolo 

• (dollaro) $: trasforma il carattere 
puntato in maiuscolo 

• (meno)-: trasforma il carattere pun- 
tato in uno spazio 

• (ca ncel letto) #: elimina il carat- 
tere puntato 

• SHG: visualizza tutte le informa- 
zioni disponibili 

• PA/s/: sposta il puntatore dopo la 
stringa V* 

• PB/s/: sposta il puntatore prima 
della stringa “s” 

• N: avanza di una riga 

• P: retrocede di una riga 
•MI: muove alla linea “1" 

• Tn: emette ”n linee 

• TP: emette le linee precedenti 

• T: emette le linee successive 

• TLn: emette “n” linee precedute dal 
numero di linea 

•(punto di domanda)?: verifica la li- 
nea corrente 

• (punto esclamativo) !: verifica la li- 
nea corrente ed i codici 

• V +/V-: attiva/disattiva la verifica di 
linea 

• TR-/TR +: trascura/visualizza la li- 
nea tra le righe 

• I/l: inserisce il testo prima della li- 
nea corrente 

•l*o R»: inserisce il testo alla fine del 
file 

• Ir: inserisce il testo prima della 

• H 

riga r 

• Z/c/: cambia al carattere “c” il ter- 
minatore di input 

• l/n f/: inserisce il file ”nf' prima del- 
la corrente riga 


• I •/ n f/ : inserisce il file “nf” dopo la 
fine del file corrente 

• lr/nf/: inserite il file /nf/ prima del- 
la riga numero “r” 

• R/R: rimpiazza la riga corrente con 
il testo inserito 

• Rrl r2: rimpiazza la riga numero 
“ri" con la “r2“ 

• (eguale) I: rinumera tutte le linee 
assegnando *1'* alla corrente 

• Drl r2: elimina le linee tra la nume- 
ro ri e r2 

• DTB/st: elimina il testo prima della 
stringa “st” 

• DTA/st: elimina il testo dopo la 
stringa “st” 

• DF/st: elimina fino a “st” 

• SB/st/: spezza la linea prima della 
stringa *‘sf’ 

• SA/st/: spezza la linea dopo la strin- 
ga “st" 

• CL: ricongiunge una linea spez- 
zata 

•C'L/st: unisce la riga corrente con la 
stringa “st” 

• GA/s/s2/: inserisce completamente 
la stringa ”s2” dopo “s” 

• GB/s/s2: inserisce completamente 
la stringa “s2” prima di V* 

• CGn: cancella completamente l o- 
perazione “n” 

• CF: cancella tutte le operazioni 

• F/str/: ricerca nel file la stringa 
str 

• B F/str/: ricerca una stringa “str” 
alfindictro 

• E/sl/s2/: sostituisce la stringa *s2” 
con la “si” 

• B/sl/s2/: inserisce la stringa “s2” 
prima di “si” 

• A/sl/s2: inserisce la stringa “s2” do- 
po la stringa “si” 

• W: continua l'elaborazione attra- 
verso tl file sorgente 

• Q: esce dalfeditor memorizzando il 
file ottenuto 

• Stop: esce dalfeditor senza memo- 
rizzare la variazioni 



Caratteristica comune ad ambedue 
gli editor è l'utilizzo della directory 
“f per memorizzare i propri buffer 
di lavoro. 

Come è 
Amiga Basic ? 

Tutti gli appassionati possessori di 
home o personal computer iniziano 
la loro carriera di programmatori 
con lo studio dell'interprete Basic. 

Considerato che molti dei posses- 
sori di Amiga hanno probabilmente 
avuto per le mani il glorioso prede- 
cessore C/64, ci si interrogherà certa- 
mente sulle principali differenze dal 
linguaggiodi programmazione di un 
computer sofisticato ed evoluto come 
Amiga. 

Si tratta di un Basic avanzato piut- 
tosto standard, molto simile allo MS- 
Basic del Macintosh ed allo 1BM-PC 
Basic, dotato di estensioni idonee a 
gestire le possibilità sonore e grafiche 
esclusive di Amiga. 

.Amiga Basic deve esser caricato da 
discco. occupa circa 80K di memoria 
centrale ed incorpora un (lentissimo) 
editor “integrale”, ovvero operante su 
tutto lo schermo. 

E' comunque possibile usare, come 
testo sorgente, quello prodotto da un 
word-processor. 

Le caratteristiche che fanno di A- 
miga Basic una delle versioni più c- 
volute del linguaggio sono: 

• totale assenza dei numeri di linea 

• blocchi condizionali If. Then.. Else 
multipli 

• sotto programmi con variabili allo- 
cate dinamicamente 

• numeri interi a 16-32 bit 

• numeri in virgola mobile a 32 e 64 
bit 

• etichette (label) alfanumeriche per i- 
dentificare sezioni del programma (in- 
vece dei numeri di linea) 

• accesso sequenziale e casuale ai file 

• supporto di periferiche di I/O indipen- 
dente per RS-232 

• porte parallele in grado, grazie al mul- 
titasking. di lavorare contemporanea- 
mente all interprete Basic. 

Ci sembra importante sottolineare 
che l'allocazione dinamica delle va- 
riabili, ovvero la possibilità di elimi- 
nare automaticamente dalla memo* 
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ria alcune variabili non più necessa- 
rie all'uscita da un sottoprogramma, 
consente la ricorsività. caratteristica 
presente solo in linguaggi più sofisti- 
cali (Pascal. Lisp e simili). 

Dicevamo che vi sono estensioni 
del Basic che supportano le caratteri- 
stiche esclusive dell’hardware di A- 
miga; non dimentichiamo i chip VL- 
SI specializzati perla grafica (Agnes) 
ed il suono (Daphne). 

Il Basic prevede: 

• generazioni sonore e musicali su 
quattro voci sincronizzate tramite le 
specifiche SOUND e WAVE. La pri- 
ma permette di emettere un suono di 
frequenza, durata e volume specifi- 
cati: la frequenza può essere anche u- 
na voce tra quattro definite dal pro- 
grammatore tramite WAVL. che per- 
mette di creare voci di qualsivoglia 
complessità, ottenendo così dal clas- 
sico "BEEP” dello Spectrum alla sin- 
tesi di un quartetto d'archi, il tutto o- 
perante in multitasking, ovvero con- 
temporaneamente all’esecuzione del 


normale programma Basic. 

• Sintesi vocale tramite specifiche 
SAY e TRANSLATES operanti con 
fonemi ed in grado quindi di simula- 
re qualsiasi idioma. Stiamo atten- 
dendo il modulo di libreria (un file) 
che consenta di ottenere automatica- 
mente la lingua italiana oltre a quella 
americana (standard). 

• Capacità di memorizzare, e visua- 
lizzare. porzioni dello schermo, an- 
che in alta risoluzione, tramite speci- 
fiche GET e PUT. 

• Presenza di tutte le istruzioni grafi- 
che più evolute con numerosi para- 
metri specificabili: Line, Circle. 
Paint (strepitosamente veloce anche 
per grandi superfici). Area. Areafill 
e Scroi I. 

• Gestione di animazioni semplifica- 
ta tramite specifica “Object ". un edi- 
tor di sprite (figure grafiche) incorpo- 
rato. e funzione “Collision" per rile- 
vazione di contatti tra figure in 
movimento. 

• Interfacciamento semplificato tra- 


mite specifiche Declare e Library 
con routine scritte in linguaggio As- 
sembler. C, BCPL, Fortran. Pascal. 
Forth (tutti già disponibili)... 

• Gestione completa di schermi mul- 
tipli e finestre spostabili, ridimensio- 
nabili. disattivabili eccetera tramite 
specifiche Screen c Window. 

• Menù di tipo “a sipario' o “pull- 
down" tramite specifica Menu. 

Il manuale, fornito con l'interprete 
Amiga Basic insieme alla macchina, 
è realizzato piuttosto bene, senza er- 
rori e con esempi chiari. Per darne u- 
na descrizione veramente esauriente 
servirebbe un'enciclopedia: pertan- 
to. come sempre accade tra gli hobbi- 
sti, la migliore scuola sarà la pratica, 
il migliore testo in circolazione l’A- 
miga stesso ed i migliori maestri la 
pazienza e la passione, oltre, ovvia- 
mente, alla nostra Rivista che, non 
per niente, è realizzata di veri appas- 
sionati di questi mostriciattoli al 
silicio. 
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Andare in giro 

con 

pochi spiccioli 

Dove andremo a finire passeggiando 
a caso per la città; ed altri 
momenti casual... 


di Valentino Spataro 


I n questo articolo ci divertiremo 
con due programmi basati su un fon- 
damentali argomento della stati- 
stica. 

11 primo simulerà il percorso di una 
ipotetica passeggiata tra i quartieri 
della vostra città c risulterà utile per 
comprendere anche fenomeni fisici. 

Il secondo consente la previsione 
dclfandamento di un fenomeno. 

I programmi pubblicati saranno 
preziosi, tra l'altro, persapeme di più 
sugli sprite, sulla gestione della bassa 
o alta risoluzione con la possibilità, 
nel secondo caso, di mettere a con- 
fronto le differenze esistenti tra le 
routine di Toma e il simulatore Gw- 
Basic. 

Tenete d’occhio anche la particola- 
re gestione dell’output e dell'input 
perchè non sono state utilizzate le 
tecniche adoperate di solito. 


/ 
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Una passeggiata 

Dopo le applicazioni, apparse nel 
numero scorso, sulla fondamentale 
legge della statistica (che indica co- 
me calcolare la probabilità che un e- 
vento accada), prenderemo stavolta 
in considerazione un fenomeno più 
complesso e ne approfitteremo per 
trarre conclusioni utili per spiegarci 
fenomeni più complessi. 

L'importanza di approfondire gli 
argomenti proposti trascende il cam- 
po statistico: intuirete, infatti, come il 
metodo usato per spiegarci il feno- 
meno preso in esame è posto alla ba- 
se stessa della programmazione, vale 
a dire rendere semplici problemi ap- 
parentemente complessi. 

Per seguire il “caso" di cui parlere- 
mo tra breve, si consiglia di copiare il 
programma “Applicazioni”, di farlo 
partire e di scegliere l'opzione I. 

Se avete digitato correttamente il li- 
stato sul vostro C/64, compariranno 
49 quadrati disposti a rete (7x7). sepa- 
rati tra loro, ed uno sprite quadrato 
che passa tra gli spazi liberi percor- 
rendo tracciati sempre diversi. 

Immaginate di essere lo sprite e che 
vi muoviate per i quartieri della vo- 
stra città. Fate inoltre conto di essere 
appena usciti da scuola (quadrato 
nel l 'a ngolo i n a I to a destra ) dopo u na 
giornata totalmente negativa, e di a- 
ver raggiunto un livello di depressio- 
ne tale che ad ogni incrocio lanciate 
una monetina per decidere se diriger- 
vi verso ovest o verso sud (tenete pre- 
sente che il nord è la parte alta dello 
schermo): la domanda che sicura- 
mente vi porrete sarà: “Quante pro- 
babilità ho di arrivare a casa?" (que- 
sta è rappresentata dal quadrato po- 
sto in basso a sinistra) 

Mentre il programma prosegue ai- 
fi nfin ilo lino a quando non preme- 
rete il tasto F (se volete stampare i da- 
ti visualizzati basterà premere il tasto 
P. dopo aver acceso la stampante) 
noterete l'aggiornamento continuo 
dei dati numerici posti verticalmente 
e orizzontalmente in corrispondenza 
degli sbocchi Sud e Ovest della peri- 
feria: questi indicano il numero di 
volte in cui voi ( = lo sprite) siete pas- 
sati per quel punto. 

Cosi facendo ottenete quelli che so- 


no detti i risultati “empirici" la cui 
validità aumenta con l'aumentare 
del numero delle “passeggiate”. Si 
sottolinea il fatto che. quando l'ela- 
borazione fornisce dati di due cifre, 
si verificano alcuni inevitabili “slitta- 
menti" che provocano un disallinea- 
mento tra il dato visualizzato e l'in- 
crocio cui si riferisce. 

Vedremo ora di calcolare, per via 
matematica, la probabilità di perve- 
nire casualmente a ciascun incro- 
cio. 

Premete F per tornare al menù e 
scegliete l’opzione 2: comparirà una 
griglia di valori di cui molti sono po- 
sti a zero; questi, in seguito, vengono 
sostituiti con i reali risultati che rap- 
presentano la probabilità di arrivare 
ad ogni singolo incrocio. 

L'unico elemento certo che abbia- 
mo a disposizione è il punto di par- 
tenza (la scuola, quadrato in alto a 
destra): c'è quindi una probabilità su 
una possibilità (cioè la certezza: 1 ) di 
ritrovarci nell'incrocio adiacente alla 
scuola. Proseguendo nella passeggia- 
ta, gli incroci dove possiamo giunge- 
re sono due: quello a sud oppure 
quello a ovest e, di conseguenza, a- 
vranno la metà delle probabilità del- 
l’incrocio di provenienza, vale a dire 
0.5. Ammettiamo che la monetina 
che lanciamo ci spinga sempre a o- 
vest: in tutti i successivi incroci avre- 
mo sempre la metà delle probabilità 
di quello di provenienza (1. 0.5. 0.25. 
0.125. 0.062). 

Si segue lo stesso ragionamento nel 
caso in cui la moneta indichi sempre 
il sud. Più problematico, invece, è de- 
terminare le probabilità di un incro- 
cio che non sia sui lati estremi della 
nostra città, ma al suo interno. 

Consideriamo l'incrocio a cui pos- 
siamo pervenire se la moneta ci dice 
di andare una volta a ovest c una a 
sud (oppure al contrario, tanto vi sj 
arriva ugualmente). Possiamo giun- 
gervi provenendo da un incrocio po- 
sto a nord oppure da uno posto a est. 
Entrambi vanno cansiderati nel con- 
teggio delle probabilità dell'incrocio 
in esame. In particolare, abbiamo 
metà probabilità per l'incrocio a 
nord e metà per quello a est. 

La somma di queste probabilità 
fornisce quella di arrivare all'incro- 
cio considerato. Se. ad esempio, quel- 


lo a nord ha 0.5 probabilità e quello a 
est 0.5, l’incrocio comune cui possia- 
mo pervenire ha la probabilità: 

0.5/2 + 0.5/2 = 0.5 

Continuando lo stesso ragiona- 
mento per gli altri incroci, arriviamo 
a determinare le probabilità di arri- 
vare all'incrocio di casa nostra (qua- 
drato in basso a sinistra). 

Confrontate ora i risultati empirici 
(opzione I. dopo almeno un centi- 
naio^ Ji passeggiate) con quelli teori- 
ci: se avete la stessa fortuna di Gasto- 
ne risulteranno uguali; se invece siete 
Paperino, provate e riprovate: dopo 
centinaia di tentativi dovreste ottene- 
re risultati quasi corrispendenti. In 
tutti gli altri casi i risultati possono 
esser considerati simili per la conva- 
lida del calcolo. 

Con il semplice esempio descritto 
avrete certamente notato come la 
probabilità di arrivare a casa dipen- 
da in maniera determinante dalla 
probabilità degli incroci precedenti. 

Possiamo affermare, più in genera- 
le, che per calcolare le probabilità 
che si realizzi una certa situazione 
all'interno di un fenomeno comples- 
so. bisogna prima cr’colaic tutte le 
probabilità dei singoL casi che porta- 
no alla situazione in esame. 

Con l'opzione 2, infatti, vengono 
calcolate prima le probabilità dei ca- 
si precedenti: solo procedendo in 
questo modo possiamo calcolare le 
probabilità di arrivare a casa in tem- 
po per l’ora di pranzo. 

Nei casi più complessi, comunque, 
si preferisce calcolare empiricamen- 
te subito quante volle si realizza un 
fenomeno e in base ai risultati dire 
quante probabilià ha di realizzarsi in 
futuro tenendo come valida la legge 
dei grandi numeri (vedi CCC N.42) 
secondo la quale quanto più si ripete 
l'esperimento tanto più ci si avvicina 
ai risultati teorici. 

Le considerazioni finora sostenute, 
vengono applicate anche nella Fisica 
con rilevante influenza. 

Infatti, oggi come oggi, la fisica 
classica non ha più il carattere di as- 
soluta certezza di un tempo, ma pro- 
babilistico; non si ritiene più impos- 
sibile che un pianeta vada contro la 
legge della gravitazione universale di 
Newton, ma si ritiene questo fatto al- 
tamente improbabile. 


24 - Commodore Computer Club 


Directory 

Tutti i programmi pubblicati su questo numero di Commodore Computer Club, sono registrati su un dischetto ap- 
partenente alla serie Directory ". 

Oltre ai programmi citati, sono presenti altri file di notevole interesse per coloro che desiderano realmente utilizza- 
re il proprio computer. 

Sono infatti presenti, disolito, anche i programmi pubblicati sull'altra nostra rivista Personal Computer . ed altri 
file che, in totale, riempono quasi per intero i 664 blocchi normalmente disponibili su un floppy disk. 

Sono disponibili i seguenti dischetti: 

Directory N. I (CCC N.34 + raccolta dell’intera Enciclopedia di routine) 

Directory N. 2 (CCC N.35 + CCC N 36) 

Directory S. 3 (CCC N.37 + PC N.7 + PC N.8) 

Directory N. 4 (CCC N.38 + file van) 

Directory N. 5 (CCC N 39 + PC N.9) 

Directory N. 6 (CCC N.40 4- PC N.IO) 

Directory N. 7 (CCC N.41 + file vari) 

Directory N. H (CCC N.42 + file vari) 

Directory N. 9 (CCC N 43 4- file van) 

Come procurarsi i dischetti della serie “Directory" 

Avvertiamo i lettori che NON è assolutamente possibile inviare i programmi su nastro, per intuibili motivi di eco- 
nomia ed affidabilità del nastro cassetta. 

Ogni numero di 'Directory" può quindi esser richiesto SOLO su disco inviando L 1 2000 per ciascun disco oltre a 
L 3000 (fisse) per le spese di imballo e spedizione (indipendenti dal numero di dischi richiesti). 

Chi desiderasse la spedizione raccomandata, deve aggiungere altre 3000 lire per l'ulteriore affrancatura. 

Non ci è possibile inviare matenale contrassegno: si prega di astenersi dal chiedere eccezioni alla regola. 

Compilate un normale modulo di C/C postale indirizzando a: 

C/C postale /V. 37952207 
Systems Editoriale 
Viale Famagosta, 75 
20142 Milano 


Non dimenticate di indicare chiaramente, sul retro del modulo (nello spazio indicato con Causale del versamento ") 
non solo il vostro nominativo completo, ma anche il numero del disco desiderato; esempio: 

"Directory N.1" 

"Directory N.3” 

"Directory N.4" 

Totale: 

LI 2000x3 + 

L6000 (spedii, racc.) 

= L. 4 2000 

(spese di imballo e spediz. racc. comprese). 

N B Per ottenere il materiale ordinato in tempi più ristretti, inviate l ’importo a mezzo assegno bancario non trasferi- 
bile con lettera di accompagnamento: le poste italiane non brillano per velocità ! (due mesi circa per il recapito di un 
C/C postale). 
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L ancora: perchè lutto le molecole 
del l'aria di una stanza non si sposta- 
no tutte in una sola parte di essa? 
Questo fenomeno è possibile, ma for- 
tunatamente improbabile: le proba- 
bilità sono le stesse di ottenere tutte 
“teste” lanciando tante monetine 
quante sono le molecole dell'aria. 

Nel primo programma avrete nota- 
to che è presente un'altra opzione di 
cui ora vedrete l'utilità. 

Tartaglia e le monete 

Studiando la matematica vi sarete 
certamente imbattuti nel famigerato 
triangolo di Tartaglia (detto anche di 
Pascal): è un metodo semplice per 
calcolare i valori da attribuire ai ter- 
mini noti nello sviluppo di un bino- 
mio di ennesimo grado come, ad 
esempio: 

(a + b) | n 

Tale espressione matematica è 
spesso ricorrente nella statistica: si è 
infatti notato che, lanciando M mo- 
nete N volte, il numero di teste e di 
croci che ne risultano portano a ri- 
sultati del tutto simili a quelli forniti 
dal triangolo di Tartaglia; vedremo, 
quindi, di calcolare la probabilità 
che si presenti una qualunque delle 
varie combinazioni di testa e croce, 
che possono risultare dal lancio di 2, 
3. oppure 4 monete. Le tre relazioni 
matematiche necessarie sono le se- 
guenti: 

(c+t) I 2 - c 12 + 2*c*i + i I 2 

(c+t) I 3 = c I 3 + 3*c ! 2*/ + 
3*c*t | 2 + / (2 

(c+t) I 4 = c I 4 + 4*c t 3*r + 
6*c t 2*/ t 2 + 4*c*t | 3 + l t 4 

in cui. ovviamente, “t” significa te- 
sta c V croce. Interpretiamo i dati 
riportati: 

L'esponente associato al termine 
(c+t), al primo membro di ciascuna 
equazione, rappresenta il numero 
delle monete lanciate; ne consegue 
che la prima equazione si riferisce al 
lacio di due monete (esponente = 2); 
la seconda considera tre monete (e- 
sponente = 3) eccetera. 


Gli esponenti che troviamo asso- 
ciati agli addendi del secondo mem- 
bro di ciascuna equazione, rappre- 
sentano il numero di teste e di croci. 
Per esempio... 

c I 3*t t 2 

...rappresenta tre croci e due teste. 

II coefficiente numerico in ciascu- 
na espressione al secondo membro 
dice in quanti modi può presentarsi 
ciascun evento. 

Dunque, se si lanciano tre monete 
(vedi seconda equazione), sappiamo 
che tre croci si presentano in un solo 
modo(c 3). due croci e una testa in 
tre modi (3*c 2*t), e tre teste in un 

solo modo (t 3). Sommando i vari 
coefficienti (ci riferiamo ancora alla 
seconda equazione) si ottiene 1 +3+ 
3+1 =8, che è il numero degli eventi 
possibili, cioè il numero totale di pos- 
sibilità che possano verificarsi. 

Nel N.42 di CCC ci siamo riferiti ad 
una formula basilare, che ora richia- 
miamo brevemente: 

Npr=Nfa/Npo 

Npr= n. probabilità 
Nfa- n. casi favorevoli 
Npo- n. casi possibili 

La probabilità, dunque, che si pre- 
sentino due croci e una testa è: 

P(c t 2*f t 1)=3/H (cioè: 37.5%) 

in cui P = probabilità che si verifi- 
chi il fenomeno indicato tra pa- 
rentesi. 

Questo tipo di analisi è valida solo 
se la probabilità di ciascuno dei sin- 
goli risultati è esattamente 1/2 (come 
quando si lancia una moneta non 
truccata; anzi provate voi a truccarla 
seguendo i suggerimenti dell'inserto 
del N.38 di CCC). 

Per vedere il triangolo di Tartaglia 
vi basta usare il programma “Appli- 
cazioni ": se userete potenze inferiori 
al 9 vedrete il triangolo, altrimenti so- 
lo il risultato finale. 

Per lanciare le monete non prende- 
te il salvadanaio, ma copiate il pro- 
gramma nella versione Gw-Basic op- 
pure Toma (purché contenga il co- 


mando C'har) che forniscono gli stes- 
si risultati; in questo modo potrete 
anche confrontare i due linguaggi. 

Fate girare il programma e digitate 
un numero di monete compreso tra 1 
e 9 (estremi compresi). Potete impo- 
stare il numero di lanci che volete: il 
valore consigliato, per non aspettare 
molto c avere risultati apprezzabili, 
è 100. 

Dopo una breve pausa comparirà 
una schermata in cui al di sotto del 
grafico resta uno spazio diviso in tre 
parti. Nella prima di queste è indica- 
to il numero di teste e di croci relative 
a ogni colonna (la loro somma forni- 
sce, ovviamente, il numero di monete 
selezionato). Nella parte centrale so- 
no riportati i risultati teorici calcolati 
con Tartaglia (cioè i valori numerici 
della “base” del triangolo e le percen- 
tuali corrispondenti). 

Per sapere quante volte esce una te- 
sta e 8 croci lanciando 9 monete 100 
volte, basterà guardare i risultati po- 
sti sotto la seconda colonna di sini- 
stra. Nella parte a metà è presente un 
9 (che deriva dal triangolo elaborato 
con il programma precedente) e la 
percentuale dell'l per cento. Nella 
parte sottostante, invece, troverete i 
risultati ottenuti al termine del vostro 
esperimento. 

Per motivi di spazio, ovviamente, 
sono riportati solo le parti intere del- 
le percentuali calcolate. La presenza 
di eventuali 0% indica, pertanto, che 
la probabilità calcolata è inferiore 
all*! % e non che... non esiste! 


SCHEDA TECNICA 
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Software didattico per applicazioni 
di statistica. 

Idoneo per computer C/64, ma adatta- 
bile, pur se con qualche difficoltà, ad 
altri computer Commodore. 

Due dei listati che compaiono richie- 
dono il preventivo caricamento delle 
routine grafiche di Toma oppure del 
simulatore di GW-Basic 

Anche i programmi pubblicati in 
queste pagine sono contenuti nel 
disco “Directory" di questo mese. 
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Attualità elettroniche e Microcomputers 


20155 MILANO - Via Mac Mahon, 75 
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BANCA DATI MODEM-SHOP - NUOVA NEWEL 
E IN FUNZIONE TUTTI I GIORNI DALLE 13 ALLE 9 
allo 02/32.70.226 300 / 1200 BAUD 


HARDWARE PER COMMODORE 64/128 



SPEEDOOS PLUS 64 (vers. lusso) 

L 45.000 


PENNA OTTICA GRAFICA (B no Pen Lusso) 

L 49.000 

Favolosa penna ottica per Commodore 64 e 
128 (modo 64) completa di Software di 
gestione graffo sia su cassetta che su disco 
il lutto è dotato di istruzioni n tataro. 


DOUBLÉ SIDE KIT (NOVITÀ) 

L 9.000 

per serpere sulla seconda taccia del disco 
senza piu forano” 1 


KRUNKER 11 (FREEZE F.) 

,56.000 

Conosciuto sprctettore universale di cassette 
e (Ischi sprotegge il 90% del software 
protetto salvandolo m turbo su (fesco o nastro 
semplicissima da usare tutta in itakano"! 


THE NEW FINAL CARTR1GE JU 
per 64/128 (modo 64) L 90.000 

L'evoluzione 000110031" 

Eccovi l'ultima r elease della mitica 
cartuccia notevolmente migliorata e 
modificata T urbo, la favolosa roolne dello 
speeddos su cartuccia fino a 10 volte piu 
veloce sia in lettura che m scrittura!!! 

8 Tasti funzione programmati, 24 K ram 
extra ber i prog. in Basic 
Un favoloso Sorotettore di programmi 
tipo O.MA incorporato, (feschi e 
cassette IN UN SOLO FILE"! (+ boot se 
necessita) Inoltre ha incorporalo il 
GAME KILLER (Evita la collisione dei 
spnte. ed ben 40 comandi Basic Turbo a 
dispostone HARDCOP v *HR* Si 
premendo un solo tasto potrete tare 
l'hardcopy del video n 1? grada/oni 
di grigio'!' ECCEZIONALE!’ 


SUPER TOTAL COMUNICATION MODEM 
64/128 L 110.000 

Modem diretto per Commodore 64, 900 baud 
con soft e manuale italiano 


SUPER FAST LOAD 

Turbo (feste, ut#ty con reset!!! L 29.000 


hard copy del video, comandi dos dretfi 
(turbo), completamente trasparente’! 1 


FILTRO ANT1DIS TURBO (uni versate) 

L 25.000 

Questo stupendo apparecchio vi aiuterà 
a risolvere ed a prevenire mortissimi problemi 
Ad esempro sbalzi di corrente sono fatali per 
un computer Inoltre vi toglie disturb. 
che possono intiere come distorsione del 
video, problemi di caricamento programmi 
ecc. (UTILISSIMO) 


O.MA PLUS (BANDID 11) 64/128 6 1280 

L 75.000 

Eccovi l'ultima rivoiuzionana cartuccia 
sprotettore di programmi, trasfensce 
IN UN UNICO FILE ncassettabUe il 99,99% 
del software protetto" 1 Da nastro a disco, 
da (fesco a disco, da (fesco a nastro.da nastro 
a nastro IN TRE MINUTI ESEGUE TUTTO IL 
LAVORO!!! 


INTERFACCIA RS-232/64 (MOOEM) 

L 49.000 

Interfaccia seriale pe^ Commodore potrete 
collegare un qualsiasi modem seriale al 
vostro computer. 


EPROM NEW GRAPHIC MPS 801 

L 25.000 

Si sostituisce a f generatore di caratteri 
della stampante MPS-801 per migliorare 
la toggbità della scrittura (car. discendenti) 


MOOfFICA MPS 802 NEW GRAPHIC PLUS 

L 35.000 

Eccezionale rende 100% compatibile la tua 
MPS-802 con tutti 1 programmi di grafica come 
(KOALA. PRINT SHOP. GEOS. ecc. ) 
semplicissima da montare, con chiave 
istruzioni m itakano!'! 


DISPONIBILI TUTTI I PEZZI DI RICAMBIO COMMODORE 64 

SCONTI PARTICOLARI PER RIVENDITORI E QUANTITAT1 VITE LE FONATE' 
PER ULTERIORI INFORMAZIONI RICHIEDETE I CATALOGHI PER IL 
VOSTRO COMPUTER SPECIFICANDO IL SETTORE, INVIANDO L 1.000 
in francobolli. Ricorda che alla NEVEL trovi anche tutto per 
COMMODORE AMIGA 64-128. MSX. SINCLAIR ZX & QL. ATARI ST e 

F*C compatibili 


TORE TESTINA + 

APE (CARTRIGE) L 29.000 
ìatue per non avere più 
di caricamento!!' 







110 REM APPLICAZIONI DI 
120 REM STATISTICA PER C-64 
130 REM BY UALENT INO SPATARO 
140 : 

150 DIM AC80 3 : POKE 53269, 0:REM 
SPEGNE SPRITE 

160 PRINTCHRSC 1471 : PRINT "MENU ’ 
170 PRINT”1 PASSEGGIATA A CASO: 
P-STAMPA DATI 

F-FINE” 

100 PR I NT ”2 CALCOLO PROBABILITÀ 
’ DELLA PASSEGGIATA” 

190 NN-1 : REM N. PASSEGGIATE 
200 PRINT ”3 TARTAGLIA”: PRINT : PR 
INT”0 FINE 

210 GET AI I F AI-”0” THEN END 
220 ON UALCAS) GOTO 240,590,75 
0 

230 GOTO 210 

240 REM PREPARA LO SCHERMO 
250 AI-” , — i ” : B$— ” • — f”:ES“” | 

I ” : REM CHRI-32, 176,99, 174/ 
32,173,99,189/32,125 
260 FOR A-l TO 7 : CS-CS+AS : NEXT 
270 FOR A-l TO 7 : DS-DI+BS : NEXT 
2B0 FOR A-l TO 7 : FS-FI+ES : NEXT : 
PRINTCHRSC 147) 

290 FOR A-l TO 7 : PRINTCS : PRINTF 
I : PR I NTDI : NEXT 
300 REM INIZIALIZZA 
310 X— 205 : Y— 68 : UX— X : UY— Y : SX— 32 : 
SY-24 : RT-1 

320 U-53248 : POKE 0+21, 4: POKE 20 
42, 13: POKE 0+41,1 
330 POKE 0+4, X: POKE 0+5, Y 
340 REM DISEGNA SPRITE 
350 FOR A-0 TO 62: POKE 832+A,E5 
5: NEXT 

360 FOR A-0 TO 62 STEP 3: POKE 8 
32+A , 0 : NEXT 

370 FOR A-0 TO 21: POKE B32+A,0: 
NEXT 

380 REM ROUTINE PRINCIPALE 
390 A- I NT C RND C 1 3 *2 3 + 1 : GOSUB 530 
400 IF A-l THEN X-X-SX : FOR A-OX 
TO X STEP -1:P0KE 0+4, A: NE 
XT 

410 IF A-2 THEN Y-Y+SY:FOR A-OY 
TO Y : POKE 0+5, A: NEXT 
420 IF X<SX OR Y> -213 THEN GOSU 



B 460 :X-205:Y-68: POKE U+4 , X 
: POKE 0+5, Y 
430 OX-X : OY-Y 

440 GOTO 390: REM FINE ROUTINE P 
RINCIPALE 

450 REM MEMORIZZA IN MATRICI DO 
UE E’ ARRIUATO LO SPRITE 
460 IF Y<212G0T0 480 
470 A-C205-X) /32+1 : ACA3-ACA3+1 : 
GOTO 500 

480 A- C 21 2- Y 3/24+8: ACA3-ACA3+1 
490 REM STAMPA SU SCHERMO IL CO 
NTENUTO DELLE MATRICI 
500 PR I NT ” C HOME D ” : FOR A-14 TO 9 
STEP — 1 : PRINT : PRINT : PRI NT A 
C A) : NEXT: PRINT: PRINT: PRINT 
505 FOR A=7 TO 1 STEP -1:PRINTA 
(A)” “ ; : NEXT 

510 PRINT”CH0ME3N. PASSEGGIATE E 
FFETTUATE : ”NN : NN=NN+1 : RETU 
RN 

520 REM STAMPA SU PRINTER 
530 IF PEEKC 1983-0 THEN RETURN 
540 GET AS:IF A$-"F” THEN GOSUB 
910: RUN 

550 IF A$<>”P" THEN RETURN 
560 AS- ” ” : OPEN 4, 4: FOR A-14 TO 
1 STEP -1:IF A> 8 THEN PRINT 
#4 , A( A3 

570 IF A<8 THEN PR I NT#4 , AC A) ; 
580 NEXT : PR INT#4 : CLOSE 4 : RETURN 
590 PR I NTCHRI C 147) : REM INIZIALI 
ZZA 

600 AC73-1 : FOR A-l TO 6 
610 AC7-A3-1/8TA: AC C A+l 3 »7 3-1 /E 
TA 

620 NEXT: GOSUB 680 
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630 REM CALCOLA PRDBAB . E METTE 
IN SCHEMA 

640 FOR Xl-1 TO 6 
650 FOR X2-6 TO 1 STEP -lsW 
-Xl*7+X2 

660 ACUJ)=ACUJ-7)/2+ACtjd+l)/2:X-X2 
*5: Y~X1*2+1 : GOSUB 920 
670 NEXT : NEXT : GOSUB 910: RUN 
680 REM U ISUAL IZZA 
690 PR INTCHRSC 19) : FOR A-0 TO 
6 

700 FOR B-l TO 7 : Y-A*2+l : X-B 
♦5 

710 LI=A*7+B: GOSUB 920 
720 NEXT: 

730 NEXT: RETURN 
740 GOSUB 910: RUN 
750 PR I NTCHRSC 147) : INPUT "ESPON 
ENTE H ;P:P-P-1: IF P— 1 THEN 
RUN 

760 DIM CC P+l ) , BC P+l ) 

770 CC0)-1:CC1)-1:X-1:BC0)-1:BC 
1 )-l : GOTO 820 

780 IF X>P THEN F$«”I”: GOSUB 83 
0: GOSUB 910: RUN 
790 FOR A-l TO X 
B00 BC A)-CC A)+CC A-l ) 

910 NEXT:BCA)-1:X-X+1 
920 IF P> 7G0T0 870 
930 Y-19-C2*X):F0R A-0 TO X 
940 IF F$<>"I” THEN PRINT TABCY 
) BC A) ; : Y-Y+4 : GOTO 860 
B50 POKE 199, 1 : PRINTBCA) ; 

B60 NEXT : PRINT : IF FS-"I* THEN R 
ETURN 

870 FOR A-l TO X 
BB0 CC A)-BC A) 

890 NEXT 
900 GOTO 780 

910 PR I NT "PREMI UN TASTO” : POKE 
198 , 0 : UA IT 198,1:RETURN 
920 POKE 21 1 , X : POKE 214,Y:SYS58 
640: REM FUNZIONE PRINT AT 
0 LOCATE 

930 A$-STR$C ACUJ) ) : X-LENC A$ ) : IF 
X>5 THEN X-5 

940 A$-LEFT$C AS , X) : PRINTAS : RETU 
RN 

950 END 


760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

BB0 

890 

900 

910 

920 


930 


940 


10 REM STATISTICA: APPLICAZIZO 
NI 

20 REM LANCIO DI MONETE 
30 REM E ' INDISPENSABILE CARIC 
ARE L’ULTIMA UERSIONE DELLE 
ROUTINE DI TOMA 
40 REM BY UALENT INO SPATARO 
50 REM: 

60 PR INTCHRSC 147) 

70 INPUT "NUMERO MONETE P : P-P“ 
1: IFP — 10RP>BTHENRUN 
80 INPUT "NUMERO LANC I " ; LA : I FLA 
-0GOTOB0 

90 DIMACP+1 ) , BCP+1 ) 

L00 A(0)-1:A(1)-1:X-1:BC0)-1:BC 
1)-1 

L 10 IFX>PTHEN170 
L20 REM CREA IL TRIANGOLO DI TA 
RTAGLIA E CONSIDERA SOLO L ' 
ULTIMO 

L30 FORA-1TOX 

L40 BC A)-AC A)+AC A-l ) 

150 NEXT :BCA)-1:X-X+1 
160 FORA-1TOX :ACA)-BCA): NEXT : GO 
TO110 

170 POKE50151 , 75 : DY-100-PEEK C 50 
151): REM CAMBIA PUNTO DI UI 
STA 

180 REM INI ZI AL IZZA TUTTO 
190 «-CLEAR : «-GRAF 0 . 7 : «-COLOR 1:P 
-P+l 

200 FORA — 160TO160STEP 320/CP+l 
) 

210 «-DRAW A,0,Z,A, 100+DY , Z : REM 
DIUIDE IN COLONNE 
220 NEXT : «-DRAUJ -160 , 0 , Z , 160 , 0 , Z 
230 REM U ISUAL IZZA TUTTI I DATI 
CU. ARTICOLO) 

240 FORA-0TOP : *-CHAR A*40/CP+1), 
19 , 0 , BC A) : TT-TT+BC A) : NEXT : T 
T-100/TT 

250 FORA=P TO 0 STEP-1:-CHAR A* 

40/CP+l) ,20,0,STR$CINTCBCA) 
♦TT)) + ”V:NEXT 

260 FORA-0TOP : «-CHAR A*40/CP+1), 
16,0, STRSC A)+"T” 

270 «-CHAR A*40/CP+1) , 17,0,STR$C 
P-A)+”C” : NEXT : 

280 FORA-0TOP:BCA)-0: NEXT: REM I 


40 

50 

60 

70 

80 

90 

100 

110 

120 


130 

140 

150 

160 

170 


180 

190 

200 

210 

220 

230 

240 


250 


260 


270 
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NI 2 1 AL I ZZA 

290 -DRAld -160,-22.2,160,-22,2: 

-DRAU) $.-45,$.$ .-45,$ 

300 REM **** INIZIA LANCI **** 
310 SY~125/ C LA/2) : FORA- ITOLA : T- 
0 

320 REff LANCIA P HONETE 
330 FORB“lTOP : 60SUE4 10 : AC B ) "RS : 
IF RS* 1 THEN T-T + l : REM CDNT 
A LE TESTE 
340 NEXT : 

350 B(T)*BCT)+1 

3B0 <-DRAU) T*320/(P+i:)-160+5 , BC 


100 

REfl STATISTICA CON IL C/64 



110 

REH LANCIO DI N MONETE 



120 

REM RICHIEDE SIMULATORE DI GUI-BASIC 



130 

REM BY UALENT I NO SPATARO 



140 

• 

• 



150 

PR I NTCHRSC 147 ) 



160 

INPUT “NUMERO MONETE”; P: P-P-l : I FP--10RP> BTHENRUN 



170 

I NPUT “NUMERO LANC I " ; LA : I F LA-0 GOTO170 



180 

DIMACP+1),BCP+1) 



190 

AC0)-1: AC1)-1:X-1:BC0)-1: BC1)-1 



200 

I FX> PTHEN260 



210 

REM CREA IL TRIANGOLO DI TARTAGLIA E CONSIDERA SOLO L’ULTIMO 


220 

FORA-1TOX 



230 

BCA)-ACA)+ACA-1) 



240 

NEXT: B C A )- 1 : X-X+l 



250 

FORA-1TOX: AC A)-BCA) :NEXT : GOTO200 



260 

• 

• 



270 

REM ••••• INIZI ALIZZA HI-RES •••*• 



280 

CLS 1 : SCREEN 1 : COLOR 1S,0,0:P-P*1 



290 

FORA-0TO320STEP 320/CP+l) 



300 

LINE CA.01-CA, 125) : REM DIUIDE IN COLONNE 



310 

NEXT : L I NE C 0 , 125)-C 320 , 125) 



320 

REM DATI TEORICI CU. ARTICOLO) 



330 

FORA-0TOP: LOCATE C320*A/CP+1 ) , 152) : PRINTBC A) : TT-TT+BC A) : NEXT : TT-100/TT 


340 

FORA-P TO 0 STEP-1 : LOCATE ( 320 • A/ C P+l ) , 160 ) : PR I NTSTRSC I NT CBCA)*TT)) + "V 

: NEXT 

345 

REM LEGENDA PER IL GRAFICO 



350 

FORA-0TOP: LOCATE C A*320/ C P + 1 ) , 16*8) : PR I NTSTRS C A ) + ”T H 



360 

LOCATE CA*320/CP+1) ,17*8) : PR INTSTRSC P-A) +"C”: NEXT: 



370 

FORA-0TOP : B C A ) -0 : NEXT : REM ‘UUOTA’ BC A) 



380 

LINE C0, 1 73 ) - C 320 , 1 73 ) : L I NE (0 , 195)-C 320 , 195) 



390 

LINE (0 , 149)- 050, 149) : LINE <0 , X95)-C3e0 , 195) 



400 

REM **•* INIZIA LANCI •*** 



410 

SY= 125/ C LA/2) : FORA= ITOLA : T=0 



420 

REM LANCIA P MONETE 



430 

FORBII TOP: GOSUB510 : 0(B)“RS : IF RS=1 THEN T=T+1 : REH CONTO LE 

TESTE 


440 

NEXT: 



450 

B(T)~BCT)+1 



460 

LINE CT*320/CP+l)+5, 125-BCT)*SY)-CT*320/CP+l)+320/CP+l )-5, 

125-BC T ) *SY) : 

NEXT 

470 

REM U I SUAL I ZZA I RISULTATI OTTENUTI EMPIRICAMENTE 



480 

FORA-0TOP: LOCATE C A*40/ C P+l ) *B , 22*8 ) ; PRINTBC A) : NEXT 



490 

LA-100/LA: FORA-P TO 0 STEP- 1 : LOCATE C A*40/ C P + 1 ) *8 , 23*8 ) 



500 

PRINT STRSC INTCBCA)*LA)) + "V*:NEXT:UJAIT198, 1 rSCREEN 0:RUN 



510 

RS- I NT C CRNDC 1 ) *2 ) + 1 ): RETURN : REM ESTRAZIONI 



520 

END 



READY. 




T ) *SY , Z , T*320/ ( P+l ) -160+320 
/ ( P+l )-5 , BCT)*SY , 2 : NEXT 
370 REH STAMPA I RISULTATI FINA 
LI 

380 FORA-0TOP: -CHAR A*40/(P+1), 
22 , 0 , BC A ) : NEXT 

390 LA-100/LA: FDRA-P TO 0 STEP- 
1 : ♦•CHAR A*40/CP+1) ,23,0,STR 
$C INTCBCA)*LA)D4.»5ì» : NEXT 
400 UJAIT198, 1 : END 
410 RS"INT C CRNDC 1 )*2)+l ) : RETURN 
: REM ESTRAZIONI 
420 END 
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DIDATTICA 


Dimmi un numero! 


Come “passare” parametri dal Basic 
al Linguaggio Macchina; e altre storie 

sulle Rom del C/64 


di Giancarlo Mariani 


M olii lettori hanno spesso digita- 
to brevi routine in Linguaggio Mac- 
china (LM) ma, pur soddisfatti del 
loro funzionamento, desiderano sa- 
pere in che modo agiscono. 

In questo articolo spiegheremo nei 
minimi dettagli come agire per rea- 
lizzare una routine LM da richiama- 
re a piacimento in nostri program- 
mi Basic. 


Che cos’è un parametro? 

Molte routine, per funzionare, non 
necessitano di alcun parametro, os- 
sia basta richiamarle con "SYS ind” 
(in cui "ind'' ò l'indirizzo di partenza 
della routine) per far compiere il la- 
voro richiesto. 

Il più delle volle, comunque, le rou- 
tine sviluppate per funzionare neces- 
sitano di parametri, che devono esse- 
re "passati*' al momento della 
chiamata. 

Un parametro è un valore (numeri- 
co o stringa), sul quale la routine si 
basa per svolgere la funzione. Esami- 
niamo qualche esempio: 

• una routine Che esegua la somma di 
due numeri avrà bisogno di due para- 
metri esterni, che sono appunto i due 
numeri da sommare tra loro. 

• una routine di logaritmo necessiterà di 
un solo parametro (l'argomento de! 
logaritmo). 

• una routine di cancellazione schermo 
non necessita di alcun parametro. 

I parametri, se ci sono, possono es- 
sere indicati dall" esterno" ossia tra- 
mite un programma Basic. Esistono 
due strade che un programmatore 



può seguire per raggiungere il suo 
scopo, e che esaminiamo ora nei 
dettagli. 


I parametri nelle locazioni 

E' il sistema più semplice, ma an- 
che il meno pratico dal momento che 
consiste nel l'utilizzare alcune loca- 
zioni di memoria come "parcheggio" 
per un successivo scambio di dati tra 
Basic c LM. 

Supponiamo di dover scrivere una 
routine che serva ad alterare i colori 
di sfondo e di bordo del video; neces- 
sita. ovviamente, dei due parametri 
"esterni" (i due colori). 

Potremo, quindi. POKare i due va- 
lori in opportune celle di memoria 
(che chiamiamo LOCI eLOC2)e, in 
seguito, richiamare la routine LM 
che provvederà a leggere le due celle 


ed a trasferirne il contenuto negli ap- 
positi registri di colore. 

La routine mista Basic-LM (appe- 
na accennata) può essere di questo 
tipo: 

IO rem programma Basic 
15 print "digita colore sfondo 
20 input a 

25 print "digita colore bordo " 

30 input h 

35 rem salva i due valori in loci E 
loc2 

40 poke loci, a 
45 poke loc2.b 

50 rem chiama la routine LM 
55 svs ind: rem ind = indirizzo partenza 

La routine LM. chiamata "ind ', sarà 
del tipo: 

LDA LOC I . Carica in A col. sfondo 
STA 53281 .Cambia sfondo 
LDA LOC2 . Carica in A col bordo 
STA 53280 . Cambia bordo 
RTS . Ritorna al basic 

Il programma è talmente semplice 
che si commenta da solo. Si può fa- 
cilmente notare, però, che all'aumen- 
tare dei parametri da passare, la ste- 
sura del programma risulta macchi- 
nosa, il sistema poco pratico ed il 
programma finale praticamente il- 
leggibile. a causa della massiccia pre- 
senza di istruzioni POKE. 

Se. poi. i parametri da passare sono 
numeri molto grandi (o stringhe), u- 
na gesitione di questo tipo diventa 
praticamente impossibile. 

Per fortuna "mamma' Commodo- 
re ci viene incontro, offrendo un S O. 
ricco di routine adatte a semplificare 
notevolmente il lavoro. 
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Il passaggio automatico dei 
parametri 

Prima di passare alla spiegazione 
del metodo più efficace, è necessaria 
una premessa: 

Nel C/64 (ma anche in altri Com- 
modore) esistono due particolari lo- 
cazioni di memoria (nel nostro caso 
$7A e S7B ) che servono per far sapere 
al SO. quale carattere è attual- 
mente elaborato. 

In seguito, ad esempio, ad un qual- 
siasi comando (es. Print ‘‘pippo”) il 
“puntatore” formato dalle due loca- 
zioni S7A e S7B, non appena premete 
il tasto Return, indirizzerà il primo 
carattere del comando, ossia la “P ", 
poi il secondo ("R"), il terzo (*T‘), e 
così via lino al termine del co- 
iti a ndo. 

Una volta riconosciuto il comando, 
dotato di eventuali parametri, questo 
viene eseguito ed il puntatore resta 
posizionato sul carattere successivo 
all'ultimo letto. Per esempio, suppo- 
nendo di dare un comando del 
tipo... 

Print B:B=B+I0 

...una volta eseguito il comando Print 
B. il puntatore resterà posizionato sul 
carattere doppio punto (:) per per- 
mettere al S.O. di leggere e riconosce- 
re anche il successivo comando 
(B = B+ 10). 

Tale caratteristica può essere sfrut- 
tata a nostro vantaggio: dopo aver 
dato un comando del tipo “SYS ind", 
abbiamo la certezza che il puntatore 
dei caratteri sarà posizionato imme- 
diatamente dopo fultima cifra del- 
l'indirizzo; in questo spazio potremo 
inserire i valori da passare, come pa- 
rametri. alla nostra routine LM. 

Il lavoro da compiere risulta, in 
realtà, meno complesso di quanto 
sembri, grazie al fatto che alcune 
routine su Rom provvedono a leggere 
automaticamente il parametro posto 
dopo un comando, a controllarlo sin- 
tatticamente ed a inserirlo in una for- 
ma facilmente utilizzabile dal pro- 
grammatore, provvedendo inoltre ad 
aggiornare il puntatore del carat- 
tere corrente. 

11 lavoro per l'utente si limita, quin- 
di. al richiamo di più routine del 
SO. 


Riprendiamo l'esempio precedente 
(cambio colore sfondo-bordo) in cui 
i parametri necessari sono due. Que- 
sti andranno, ovviamente, separati 
tra di loro e da una virgola. La sintas- 
si del comando può essere la se- 
guente: 

SYS IND.CS.CB 

in cui CS è il colore dello sfondo 
mentre CB è il colore del bordo. La 
routine "ind” in LM per assolvere a 
questa funzione può essere la se- 
guente: 

Routine I 

JSR $AEFD ; Presenza virgola? 

JSR $117*1 E lettura primo param. 

STX 5? 281 . Cambio colore sfondo 
JSR SAFFI) .Come sopra 
JSR SB79E ; Ixl tura secondo par. 

STX 53280 . Cambio colore bordo 
RTS 

La prima subroutine richiamata 
(JSR SAEFD) esegue un salto ad una 
routine del S.O. che provvede a con- 
trollare se il carattere corrente (quel- 
lo indirizzato dal puntatore) è una 
virgola; in caso contrario verrà, dalla 
stessa routine, emesso un Syntax 
error. 

E* importante notare che tra le vir- 
gole ed i vari parametri possono esse- 
re aggiunti spazi vuoti: questi, grazie 
alla stessa routine, verranno comple- 
tamente ignorati in fase di lettura 
del parametro. 

JSR SB79E richiama un’altra routi- 
ne che "prende” il parametro nume- 
rico (compreso tra 0 e 255) indirizza- 
lo dal puntatore e lo trasferisce nel re- 
gistro X del microprocessore 6510. 
Anche in questo caso verrà visualiz- 
zato un Syntax error (se il numero 
non è presente) un Type mismatch 
(in caso di presenza di una stringa) e 
un Illegal quantity (se il numero è e- 
stemo all intervallo 0/255). 

Resta da attuare il trasferì mento del 
registro X nella locazione del colore 
dello sfondo. A questo provvede la 
STX 53281. 

Il programma LM continua in mo- 
do identico, con la sola eccezione che 
questa volta il parametro andrà nel 
registro di colore del bordo (53280) 
anziché in quello di sfondo. 

Una cosa importantissima da nota- 


re è che tutte le routine S.O. viste si- 
nora (e quelle che vedremo in segui- 
to). aggiornano automaticamente il 
puntatore del carattere all'ultimo let- 
to più uno. Come facilmente intuibi- 
le. questo semplifica enormemente il 
lavoro del programmatore. 

Anche se il programmino LM fun- 
ziona bene cosi come è pubblicato, 
possiamo migliorarlo ulteriormente 
inserendo controlli aggiuntivi al pa- 
rametro letto. 

Noi sappiamo che i colori possibili 
sono solo 16 (numerati da 0 a 255) ed 
è inutile accettare tutti i numeri com- 
presi tra Oe 255 che risulterebbero ri- 
petitivi. E’ sicuramente funzionale li- 
mitare il “range” dei valori inseribili 
tra 0 c 15, dando apposito errore in 
caso contrario. 

La routine per limitare l’accettazio- 
ne del range potrebbe essere: 

Routine 2 * 

JSR SAFFI) ; Controllo virgola 
JSR SB79E ;l Alt uro parametro 
CPX *15 ;E' ma gg/ugu a le 16 ? 

BPL error .Si: salta all'errore 

;No: continuo 

RTS 

errar: 

IDX *$0E .Punta a Hleg.quan. 

J\fP($0300) ; Genera errore 

Eflettuato il controllo del parame- 
tro (CPX # 16). viene effettualo (tra- 
mite BPL) un salto se il contenuto del 
registro X (che ò poi il parametro let- 
to. vedi JSR SB79E) è maggiore o u- 
guale a 16. 

Nel caso in cui X sia minore di 16 
(ossia compreso tra 0 c 15; ricordia- 
mo che la routine a $B79E non accet- 
ta valori minori di zero), la routine 
continua con la gestione del parame- 
tro, che varia a seconda del lavoro da 
svolgere. Se il parametro invece è 
maggiore di 15. viene chiamata la 
routine di errore. 

La routine di errore è già presente 
nel S.O. del C/64, e provvede a stam- 
pare gli errori tipici del Basic (Syn- 
tax, Out of Data, ecc.). Questa routine 
è indirizzata dalle due locazioni 
$0300 e $0301, e deve quindi essere ri- 
chiamata tramite un JMP indiretto a 
$0300. Nella locazione $300 (dec.768) 
e nell'adiacente $0301 (769) è conte- 
nuto, infatti, l'indirizzo reale della 
routine di errore: 
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Peek(768) + Pt>ek(769)*256-- 58251 

La “error routine” necessita anche 
di un parametro in ingresso, che deve 
essere passato tramite il registro X, e 
che contiene il codice (o il numero) 
dell’errore da visualizzare e deve es- 
sere compreso tra I e 30: valori ester- 
ni produrranno la stampa di caratteri 
casuali. 

Per ciò che riguarda la seconda 
routine, nel caso in cui il parametro 
sia maggiore di 15, viene richiamata 
la routine di errore con un codice di 
ingresso- $0E che riproduce rillegal 
Quantity. 

Provate a digitare, servendovi di un 
monitor di LM, questa brevissima 
routine: 

* Routine 3 * 

JSR SAEt'D .Controllo virgola 
JSR $R79F. ; Lettura parametro 
e trusf. nel reg. X 
JMP ($0300) .Genera:. errore a 
stx onda di X 


Poi, da Basic, impartite... 

SYS ind.err 

"Err” è ovviamente il codice delfcr- 
rorc. compreso tra 1 e 30. Che cosa 
succede? Ogni volta che si richiama 
la routine viene generato e stampato 
un errore, che dipende dal parametro 
passato. E’ da notare che non vi è al- 
cuna differenza tra un errore capita- 
to accidentalmente durante la stesu- 
ra o la prova di programmi basic, ed 
un errore generato "artificialmente”; 
infatti, anche in quesfultimo caso si 
produrranno esattamente gli stessi 
effetti, quali reset di alcuni puntatori, 
arresto del programma eventual- 
mente in corso, ccc. 

Anche in Basic è possibile realizza- 
re quanto appena accennato. Forse 
non tutti sanno che è possibile, alte- 
rando alcune locazioni di memoria, 
inserire neHaccumulatorc, nel regi- 
stro X, in quello Y (e addirittura nello 
Stack Pointer), altrettanti valori pri- 
ma di effettuare una qualunque 
Sys: 

780: Accumulatore 
78 1: Registro X 


782: Registro Y 
783: Stack Pointer 

Provate, ad esempio: 

Poke 78 1.1: Svs 58251 

w 

In seguito, come argomento della 
Poke, inserite altri valori (sempre 
compresi tra I e 30). 

Ecco la tabella degli errori: 

Codice Codice 
Decim. Esudec. Errore 


1 

$01 

Too Many Files 

2 

$02 

File Open 

3 

$03 

File Nat Open 

4 

$04 

File Noi Found 

5 

$05 

Device Noi Present 

6 

$06 

Nat Input File 

7 

$07 

Not Output File 

8 

$08 

Missing File Nume 

9 

$09 

lllegal Device Number 

IO 

$0A 

Nexl Without For 

II 

$0B 

Syntax 

12 

$0C 

Return Without (Josub 

13 

$0D 

Out 0/ Data 

14 

$0E 

lllegal Quantity 

15 

$0F 

Overjlo w 

16 

$10 

Out Of Memory 

17 

$11 

Undefd Statement 

18 

$12 

Bad Subscript 

19 

$13 

Redini d Array 

20 

$14 

Di Vision By Zero 

21 

$15 

lllegal Direct 

22 

$16 

Type mismatch 

23 

$17 

Si ring Timi l^ong 

24 

$18 

File Data 

25 

$19 

Formula Too Complex 

26 

$IA 

Cari t Continue 

27 

$1B 

Undef i d Function 

28 

SIC 

Verify 

29 

$1D 

Load 

30 

$1F 

Break 


Sinora abbiamo visto in dettaglio 
come "prendere” un parametro nu- 
merico tra 0 e 255, controllarlo, usar- 
lo, generare errori, e così via; ma, nel- 
la pratica, spesse volte il parametro 
può essere un numero maggiore di 
255, oppure una stringa. 

Vediamo, una per una, le routine 
già disponibili nelle Rom del C/64. 

lettura di un numero compreso 
tra 0 e 65535 

La parte di S O. interessata a svol- 
gere questo compito è composta da 


due routine. La prima valuta l'espres- 
sione numerica ed è posta a partire 
da SADSA. mentre la seconda 
(SB7F7) è quella che effettivamente 
legge e interpreta il numero. 

Le due routine vanno chiamate nel- 
lordne descritto. Il valore letto (tra 0 
e 65535) viene automaticamente 
scomposto in due byte (allo /basso) e 
quindi immesso nelle locazioni di 
memoria $14 $15. 

Vediamo un esempio: 

* Routine 4 * 

JSR SAEFD , C ontrollo virgola 
JSR SAD8A .-Valuta il parametro 
JSR $B7F7 : Legge il numero 

: compreso tra 0 e 65535 

:e lo mette in $14/$ 15 
EDA SI 4 .Trasferisce il numero 
STA 251 :/n 251/252 
EDA $15 
STA 252 
RTS 

Impartendo, da Basic, un comando 
del tipo "SYS ind.num” dove "ind” è 
l'indirizzo di partenza della routine e 
“num' è il numero da passare, la rou- 
tine LM leggerà questo numero e lo 
trasferirà nelle locazioni 25 1 e 252, da 
cui può essere facilmente prelevato 
per qualsiasi scopo, anche da basic, 
tramite un Print Peek (251) 4 Peek 
(252)*256. 

Ma perchè trasferiamo il numero 
dalle locazioni $14/$ 15 in 251 e 252? 
Non potremmo utilizzarlo diretta- 
mente dalle prime due? 

Si potrebbe, ma è buona norma sal- 
vare in qualche zona di memoria 
"protetta” dal S.O. il numero letto, 
dato che le locazioni $I4/$15 sono u- 
sate da innumerevoli routine dello 
stesso S.O. c si rischia di perderle ad 
una successiva chiamata. 


Lettura di una stringa 
(fino a 255 caratteri) 

Anche questa volta è necessario ri- 
chiamare due routine del S.O: la pri- 
ma posta in $AD9E, che valuta un'e- 
spressione qualsiasi, e la seconda a 
$B782. che legge un valore di tipo 
stringa. 
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Dopo la chiamata alle due routine, 
le locazioni S22/S23 conterranno il 
puntatore al primo carattere della 
stringa, mentre nel registro Y sarà 
contenuta la lunghezza della strin- 
ga stessa. 

Vediamo, anche per questa routine, 
un esempio: 

;* Routine 5 * 

JSR $AEFD : Vìrgola 

JSR $AD9E . Valuta l'espressione 

JSR $ R7H2 .Legge una stringa. 

; la fa puntare da $22/$ 2 3 
: lungh.tn Y 

TYA . Trasferisce la lunghezza 
:in Accumulatore 
JMP $AB24 .Stampa stringa 
;dù $22/$ 2 3 e lutigli m Are 

Al richiamo del programma (trami- 
te SYS ind. 'stringa "). verrà stampata 
su video la stringa inserita. E' buona 
norma, per la ragione spiegata pri- 
ma, salvare il contenuto delle loca- 
zioni S22/S23 e quello di Y in qualche 
zona di memoria “protetta” dal S.O, 
specialmente se i dati serviranno 
molto tempo dopo il loro inserimen- 
to. Questa precauzione eviterà spia- 
cevoli inconvenienti. 

Controllo di un parametro 
numerico o stringa 

Ci siamo occupati della lettura di 
parametri di cui conoscevamo la na- 
tura (numerici o stringa), ma come 
dobbiamo comportarci nel caso in 
cui non sapessimo di che tipo è il pa- 
rametro inserito? Potremmo aver bi- 
sogno di passare un numero in certi 
casi, una stringa in altri, e svolgere di- 
versi compiti a seconda del tipo di 
parametro inserito. 

Naturalmente nel S.O. esiste una 
routine adatta a svolgere questo com- 
pito: si chiama “Evaluate Expres- 
sion ed è posta a partire dall'indiriz- 
zo SAD9E. 

Questa esegue una valutazione del 
parametro letto e. a seconda del tipo, 
influenza una particolare locazione 
di memoria (SOD) che verrà messa a 0 
se il parametro letto è di tipo numeri- 
co. mentre verrà posta a 255 se è di ti- 
po stringa. 

Una volta valutato il parametro bi- 
sogna controllare SOD per decidere 


in quale parte di programma saltare 
per gestire il dato stesso. 

Dopo aver richiamato la evaluate 
expression (SAD9E), per leggere il 
parametro richiesto non sarà più ne- 
cessario eseguire il primo JSR. dato 
che rieseguirebbe un compito già 
svolto (dando, per di più un errore), 
ma basterà soltanto eseguire il secon- 
do. cioè solo JSR SB7F7 per i numeri 
e solo JSR $B782 per le stringhe. 

Anche per questa routine è propo- 
sto un esempio: 

;* Routine 6* 

JSR SAEFD .‘Virgola 
JSR $AD9E ; Evaluate Expression 
l.DA $01) ;( 'urica in A il /lag 
.numero/stringa 

BEQ num ;Se è 0. esegue pane 
;di prog per num. 

JSR SB782 ;Se no tonti nua 
.con gest. stringa 
•• ••• • 

RTS 

num: 

JSR $B7F7 : tregge numero 

; Gest. Numero 

RTS 

Una cosa da notare è che tutte le 
routine descritte sono protette da 
qualsiasi tipo di errore di inserimen- 
to, ossia verranno emessi appositi 
messaggi se si inserisce un numero al 
posto di una stringa, se il numero è 
troppo grande o negativo, se la strin- 
ga è troppo lunga, eccetera. 

I parametri potranno, inoltre, esse- 
re dati in modo esplicito (ossia nu- 
meri e stringhe) oppure sotto l'orma 
di variabili o espressioni. Saranno le- 
cite ad esempio le seguenti istru- 
zioni: 

SYS ind.1573 
SYS ind.A 

SYS ind. COS(B)+A *2/C 

SYS ind. "prova " 

SYS ind.AS 

SYS ind. F$ + LEFT$(H$. 2) + "ciao " 

Naturalmente, i comandi si posso- 
no usare, oltre che in forma diretta, 
anche aH'intemo di un programma. 

Abbiamo visto come trattare routi- 
ne che necessitano di un numero di 
parametri fisso, ma a volte il numero 


di parametri può risultare variabile. 

In pratica, se si vuole modificare un 
solo parametro, non è necessario 
scrivere tutti gli altri, ma solo il para- 
metro da modificare, risparmiando 
così tempo e byte di memoria. 

Prendiamo come esempio la routi- 
ne 1. Questa accetta in ingresso SO- 
LO due parametri: volendo modifi- 
care il solo colore di sfondo siamo 
costretti ad inserire anche l'altro va- 
lore. Per eliminare finconveniente la 
strada da seguire è piuttosto sem- 
plice: 

a) Leggere il primo parametro ed im- 
metterlo nella locazione del colore 
sfondo 

b) Il Prossimo carattere è una 
virgola? 

c) No: Fine dei parametri c ritorno 
al basic 

d) Si: Lettura di un altro parametro e 
cambio colore bordo 

La cosa “nuova” da fare è il control- 
lo della virgola. Perchè “nuova”, se 
ne abbiamo già parlato? La routine 
descritta (SAEFD) NON si può uti- 
lizzare in questo caso poiché control- 
la la presenza di una virgola ma, in 
caso contrario, stampa un Syntax er- 
ror. arrestando ('esecuzione del pro- 
gramma: abbiamo invece bisogno 
che il programma continui anche in 
caso di assenza della virgola. 

Questa volta non esiste (o quasi) u- 
na routine già pronta c dovremo 
provvedere “manualmente” al con- 
trollo della virgola. La comprensione 
risulta più facile esaminando diretta- 
mente una routine: 

;* Routine 7 * 

JSR SAFFI) :Contr. prima virgola 
JSR $B79E : Lettura vai sfondo 
STX 53281 : Cambio colore 
JSR $0079 : Lettura prossimo carattere 
CMP #$2C :E’ una virgola ? 

BNE out ;No : Toma al basic 
JSR SAEFD :Si: "salta " la virgola 
JSR SB79E lA’ggi vai bordo 
STX 53280 . Cambia colore 
out . 

RTS .Ritorno al basic 

La parte di routine che interessa 
maggiormente è quella relativa alle 
due istruzioni JSR $0079 e CMP 
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MASTERBIT 


VENDITA PER 
CORRISPONDENZA 


STAR NL 10 


GEMINI 160 


00 col 120 cps bidirez NLQ fo- 
glio singolo e cont dedicate per 
COMMODORE PC/I6M APPLE 
Il C Macintosh Sinclair QL 
L 670.000 + interfaccia 


cps bidirez foglio 
con interf Centro- 


STAR D 10 


00 col. 160 cps int seriale 
e parallela L 480 000. 


STAR D 15 

132 col 160 cps int seriale 
e parallela L. *700.000. 



80 col 160 
smg e cont 
n*cs o IBM 

— L 555 000 

con interf Centronics e seriale 

L 645 000 
con interf. SECUS per C64/128 

L 685 000 




AMSTRAD 
PC/IBM Comp 1512 


80/86 - 6 MHz • 51 2K - Dove 360K - Monitor 
- muri Paratoia e Sortale MS/DOS 3 2 G6M 
DESKTOP GEMPAJNT Base 2 


QL SINCLAIR 128K 
L. 429.000 


Tutto a L. 1.399.000 

cen IVA • trasporta. • mesi il formula 


Vare torsioni: 2 Onve • 1 Drive t- 1 Hard 10 
o 20 M • monitor odor 




A» 







COMPUTERS 


U 

l.i 


AMSTRAO IBM comp coni base L 

CONDOR PC/XT HliMNMIINMHI MI>H ••••*• •••••• • la 

640 doppio CLOCK 2 drive scheda grafica o colore - 
monitor monoc sast. oper MS DOS tastiera itali ara 

PC EXPRESS » L 1.785.000 

256K 1 drive da 360K scheda graf col scheda Hercules 

PC WORD PROCESSOR AMSTRAO 

256K 1 drive 3" monitor stampante NLQ „ I. 

512K 2 dnves 3" monitor stampante NLQ ... l. 

Ql SINCLAIR » L 



AMSTRAO DMP 3000 

SO col 100 cps NLO L 540 000 

AMSTRAO DMP 4000 L 000 000 

ESPANSIONE 540K L 10 

SCHEDA 20Mb L 000 000 


QL versione JS con 2 microdrive. alimentatore, manuale in inglese, ma- 
nuale in italiano per la gestione dei 4 programmi, cavetti 4 cartucce con 
i quattro programmi gestionali QUILL - ARCHIVE EASEL - ABACUS. 
una cartuccia con 6 giochi originali più un super copiatore per MDV e 
FLP. 


SPECTRUM PLUS 48K » L 

aUmen man in mgl ed m dal . cavetti. 5 progr su- 
percopiatore 

SPECTRUM I28K 2 cassette cen fledii L 

SPECTRUM PLUS 2 I28K L 


1.350 000 
1 506.000 
420 000 
200.000 


CENTRONICS 220 

136 col. 180 epe NLQ «Neri paratela e seriale 

CSM MPS 003 IO ad SO ut 
CSM MPS 1 000 - IO cel. 1SÌC 
CITIZEN 1 20 0 

00 coi. 100 cps per C 64 e C 128 

SEIKO DPU 40 

W • «MMNMnMMMHMKMIIIMtHHI 

40 col. 24 cps termica interi paralkela 

PNILIPS W0020 SO col 

PHILIPS VW0030 80 col. 100 cps NLQ 

EPSON P 40 pori term 40 col 40 cps rt serale .. 
EPSON LX OS 80 col. 1 20 cps NLQ per PC ... 
EPSON IX 00 80 cel. 100 cps NLQ per C 64/128 . 
COPAl 5500 .... 

136 col 180 cps 4k txjlfer NLQ 


L 470 000 

L 649 000 

L 520 000 


SPECTRAVIDfO QS IX 
MAONUH per C 




••••*•• li 


25.000 

23.000 


SINCLAIR QL 


♦. L 290 000 


olire 




MMMW ••••••• 


L 

L 

L 

L 

L 


440.000 
065 000 

340.000 

720.000 
750 000 




... L 1000 000 


QL 540* 

: da 3'1/2 4 interi per QL professionale L 

700K formattati akn meorp 

come sopra m unto contenitore L 

ESPANSIONE QL040K « L 

2 ROM ISitrasf 4 QL da JM a JS) L 

CONVERTITORE RS 232 Centroncs con cavo per QL L 

CAVO J collegamento OL/RS232 L 

CAVO JOYSTICK ger QL - L 


000 000 
030 000 


CAVO SER t per QL L 


340 000 
429 000 


MONITORS 


i¥miraimu < »Ka« t0 1 l 0 * 8 *** e ® 9 100 *" 

graf col scheda stanip., monitor 


2 dnves scheda 
tosi verdi 

PHILIPS MSX I VG 8020 
PHILIPS MSX 2 NMS 8220 


L 1 050 000 




- L 
L 


PHILIPS MSX 2 con drive incorporato L 

COMMOOORE 54 prona vers con registratore L 

COMMODORE 04 seconda vers new L 

LOMMOOORF 1 70 ..<..mm..hh ■■»»*.... . ..... .. .................. L 

AMIGA 51 2K 


425.000 

070.000 
1.150.000 

430 000 


MMHMMaiMHMMHHMNMMMII 




drive 3" 1/2 monitor col. 

COMMOOORE 129 0 

128K drive 5" 1/4 sist oper 

COMMOOORE CI 28 

ATARI 520 ST 512K mouse 

ATARI 520 STM 512K mouse modulatore TV ... 


••••••••••• 


... L 


000.000 
2.500 000 


garanzia italiana 

• M ••••»••••• 

itaàano 


- L 1 250 000 


mtatu» 


L 

L 

L 


510i 

730.000 

790.000 


STAMPANTI 


SMITH CORONA 

80 col 1 00 cps per Spadoni 

SHINWA VP 8100 

80 Cd 100 cps senagrafK» ini seriale o paratela 

MANNiSMANN TALLI MT10 4- 

80 cd 100 cps txtrer meri Centronics 

ESMANN TALLY MT 00 PC 


80 col 120 cps brtrez iBM/comp 

“* «SMANI" “ 


*••••■•• M< 


L 

L 

L 

L 

L 


320 000 

440.000 

540.000 

030.000 

846.000 


MANNESMANN TALLY MT 85 

80 col 180 cps NLQ bidirez interi paratoia o seriale 
IBM compatibili 

MANNESMANN TAUT MT 80 L 1 OSO 000 

136 col 180 cps NLQ bidirez inler parali o se» 

IBM comp 

MANNESMANN TALLY MT 290 » L 

132 col. 200 cps NLQ interi paratoia 

CENTRONICS GIP L 

80 cd. 100 cps nterl parallela 


NANTARU BOXER 12 

L. 

229 000 

12" fosf ver* alta risoluzione 

HAN TARLA 14 

14" colore standard nsokiz 80 cd 

L 

499 000 

(ENNER per C 64/128 

SLIP STREAM 

L 

250 000 

L 

485 000 

14" colore standard risolui 40 col. 



MODEM 

PC CARO Modera V21/V23 

L 

449.000 

MODEM 300 ».... 

L 

190 000 

300 baud tuli duplex serale 

MULTISTANQARD 

300 + 300 baud 300/1200 pei VIDEOTEL ALfTÒMATFCÒ 

l. 

290 000 

MAGNI TOPLAST 300 baud 

L 

130.000 

MOOEM senza cuffia per COMMOOORE 

L 

130 000 

300/1200 baud con cavo, floppy, manuale 

MOOEM PHONE 1100 

L 

345.000 

eoo telefono 300/1200 baud full e Ha r duplex per PC 


cavo ser 



30Coaud full ijupiex per PC cavo serale 

L 

245 000 

300 baud funz autorr per PC Comp HAYES cavo 

serale 

MOOEM PHONE 303 

L 

345.000 

L 

230 000 

il pù economo) con protocolo CCTTT V 21 • 300 
baud cavo ser 



MOOEM 1 200 RE 

COTT V21/V22 BELL 103/202 • 300/600/1200 

L 

500 000 

baud pud allacciarsi a qualunque sistema * ricetra- 
smittente radiotelefoni - OM - CB 




TOOLKIT II su ROM 
TUTTI I PEZZI 01 RICAMBIO: et Contattiera 
SUPER MOUSE QL ... 

BOX per Micradrtvc 




box per 9Hcr*0nve .. 
Ceprfoftien per Ql 


••••••••«••a 


L 

L 

L 

L 

L 


009 000 
200 000 
80 000 
08 000 
38 000 
10 000 
15 000 
80 000 
28 000 
185 000 
15 000 
12 000 


SINCLAIR SPECTRUM 


Interi accia 1 _ 

Mlcredrhre 

interfaccia 1 4 Moodnve 
Interfaccia Beta 


*•••••••• •»•••*•• NM 




...» .in........ L 

Cartuccia dsnosir L 

Trasformazione «a Speci rum a Spectrum Plot !.»» L 

Cate rine re RS232 Centronics L 

Interfaccia Centronics su ROM » L 

Interfaccia RS 232 L 

Upe Kempctan t presa L 


Interfaccia joystick tipo Kempsten 1 presa ...» 

Interfaccia )aystick Ubo Kempsten 2 prese 

Interfaccia parlante CURRAH Parta italiane ...» 







TRISLOT prosa tripla 
Discipline Interface 
Interfaccia 1 — 

Mutili ac e I 

M untiate I 128k ....... 

Confezione da 4 cartucce per Mtcrodnve » L 

Timi I PEZZI 01 RICAMBIO e S. Ula — L 




L 

L 

L 

L 

L 

L 


155 000 
120 000 
200.000 
320.1 
1061 
09 000 
09 000 
99 000 
25 000 
35 000 
06 000 
27 000 
196 000 
140 000 
99 000 
106 000 
24000 


VARIE 


Tutti oli erticeli TOSHIBA 

Nastfl 


Inchiostrati PELIKAN per stampanti 
Tutti all erticeli EPSON 

NUBILI 1200 programmi per 
VERBAT1M DF DÒ ... 


OISPOI 
F 



3 -1/2 -I 


PC/ camp 


JOYSTICK 


BOTALI NE standard 9 IPtNi 

DATALI NE MINI ■■ 

SPFCTRAYIOLO QS II L 
SPECTRAVIDFO OS tV 


L 

»... L 


L 

L 


14.000 
48 000 

16.000 

20.000 


ì 


vammi 

M BF/Dl ...» L 

cassette per C 04 » I. 

I perC 04/C 120 L. 

VI 0(0 CASSETTE SUPER HIGH BRADE da 120 L. 

VIDEO CASSETTE SUPER HIGH 6RA0E da 180 L. 

Registratore PHILIPS 06450 ••••»»••«■••••••••••«•«»••<•«•••»»••• l« 

Drive PHILIPS VYUC10 L 

Dischetti NASHUA Df/DO 5 "1/4 L 

RARO OISK • accessori e 
patibili IBM 


7000 
24 000 
110 000 

9.000 
9500 

110.1 

0101 

2.1 


AVVERTENZE - Tutti i prezzi sono comprensivi di IVA e spese postali, per ordì 
ni interiori alle 50 000 Ire aggungere L 8 000 per contributo spese.* spedi 
zione ■ pagamento contrassegno al ricevimento del pacco (É gr aralo * contatti 
telefonico) SCONTI QUANTITÀ. 




ORDINI TELEFONICI 

ORE 8.30/20.30 - Tel. 06/5611251 


Garanzia 48H - La MASTERBIT si impegna a sostituire quegli articoli 
riscontrati ma funzionanti entro 48 ore dal ricevimento ogni artico- 
lo t fornito di regolare garanzia 


MASTERBIT Viale dei Romagnoli 35 - 00121 OSTIA LIDO RM - CAS. POST. 3016 
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#S2C. Il JSR richiama una mutine 
presente nella pagina zero del C/64 
che provvede a leggere il carattere in- 
dirizzato dal puntatore (SENZA ag- 
giornarlo) ed a porlo nell’accumula- 
tore (A). In seguito lo stesso carattere 
viene confrontato con il numero S2C . 
codice della virgola. Nel caso non sia 
lina virgola, verrà eseguito il salto 
(BNEout)al termine del programma 
senza stampare errori anche in caso 
di assenza del secondo parametro. In 
caso contrario si DOVRÀ' richiama- 
re ugualmente la routine di controllo 
della virgola ($AEI D). dato che que- 
sta deve aggiornare il puntatore del 
carattere, poi si potrà continuare con 
la lettura e la normale gestione del 
successivo parametro. 


La sintassi con questo tipo di routi- 
ne è la seguente: 

SYS ind.CSI.CB/ 

Le parentesi quadre indicano che il 
parametro CB è opzionale. La sintas- 
si può quindi avere due forme: 

SYS ind.CS 
SYS ind.CS.CB 

Il listalo proposto in queste pagine, 
che carica in memoria la routine in 
LM, serve per cambiare i colori di 
sfondo, di bordo e del carattere, ed 
accetta, quindi, tre parametri. Natu- 
ralmente viene effettuato un control- 
lo e non risulta necessario inserirli 
tutti e tre. 



SCHEDA TECNICA 

% ài %: Jh 



Software LM applicativo 
didattico. 

Idoneo per computer C/64 e non facil- 
mente adattabile ad altri Computer 
Commodore 

Richiede una certa conoscenza del 
linguaggio macchina e viene consi- 
gliato ai lettori che vogliano approfon- 
dire gli argomenti tipici deirAssem- 
bly 

Anche d progi 
queste pagine t 

Directory” ot questo mese. 


240 

250 

260 

270 

280 

290 

300 

310 


REM ROUTINE LM PER CAMBIARE 

REM COLORE ALLO SFONDO , AL 
REM BORDO ED AI CARATTERI 

REM BY GIANCARLO MARIANI 

# 

REM SINTASSI : 

REM SYS B26 , CSC , CBC , CC3 3 

• 

REM CS-COLORE SFONDO 
REM CB-COLORE BORDO 
REM OC-COLORE CARATTERI 

• 

REM LE PARENTESI QUADRE IND 
ICANO 

REM CHE IL PARAMETRO E' OP2 
IONALE 

REM CIOÈ’ PUÒ’ ESSERE OMESS 
0 


CK=0 : FOR T-0 TO 48 : READ A 
POKE B5B+T , A : CK-CK+A : NEXT 
IF CK-4226 THEN PRINT ”TUTT 
0 OK! ” :GOTO460 
PRINT CHRSC 147) ; "ERRORE NEI 
DATI ! ’* : END 

• 

REM DATI PER ROUTINE LM 

# 

• 

DATA 032 , 091 , 003 , 142 , 033 
DATA 200,032,121,000,201 
DATA 044,208,019,032,091 


380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


003, 

121 , 

006, 

134, 

174, 

016, 

014, 


142, 
000 , 
032, 
002 , 
032, 
016, 
100 , 


032, 
201 , 
091 , 
096, 
15B, 
001 , 
000 , 


200,032 
044,208 
003,142 
032,253 
183,224 
096, 162 
003 


PR I NT ”SYS 826,CS,CB,CC" 
END 


•• DISASSEHBLATO LM •• 


ROUTINE PRINCIPALE CHAIN) 


S033A JSR 
STX 
JSR 
CHP 
BNE 
JSR 
STX 
JSR 
CHP 
BNE 
JSR 
STX 

$03SA RTS 


S035B ; 
SCO? 1 ; 
$0079 ; 
t «S2C ; 
I035A ; 
$03SB ; 
$D020 ; 
$0079 ; 
#$2C ; 

S035A ; 
$035B ; 
$0206 : 


PRENDE IL PRIHO PAR. 

LO HETTE NEL COLORE SFONDO 
CONTROLLA CAR . CORRENTE 
E* UNA UIRGOLA 
NO: FINISCI 

SI: PRENDI ALTRO PARAH . 
HETTILO IN COL. BORDO 
CONTROLLA CAR. CORRENTE 
E* UNA UIRGOLA 
NO : F I N I SC I 

SI: PRENDI TERZO PARAH. 
HETTILO IN COL. CARATT . 
TORNA AL BA5IC 


ROUTINE CHE PRENDE UN PARAH. 
E CONTROLLA SE E* >15 


$03SB JSR SAEFD 
JSR $B79E 
CPX #$10 
BPL $0366 
RTS 

ROUTINE DI ERRORE 


CONTR. E SALTA UIRGOLA 
PONE IN X NUH. TRA 0 E 255 
X E* >-16 
SI : ERRORE 
NO: TORNA AL HA IN 


$0366 LDX #$0E ; PUNTA A ILLEGAL QUANTI TY 

JHP C$0300) : STAHPA L’ERRORE 
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L’UTILE 


Minicopiatore 
di programmi 


Un programma di utilità, in LM, per chi 
possiede un drive e vuole cimentarsi 

in Assembly 


di Piloto Agostini 


TJ no dei migliori sistemi a dispo- 
sizione per rapprendi mento è quello 
dell'imitazione. Cìli abili maestri ar- 
tigiani del Medioevo affermavano 
che colui che voleva apprendere l’ar- 
te doveva “rubarla con l’occhio'’ e ciò 
c vero anche oggi, nell’epoca del 
computer. E’ proprio per questa ra- 
gione che stavolta vi presentiamo un 
programma che, benché breve, ha 
due scopi dichiarati. 

Il primo scopo è quello di soddisfa- 
re i bisogni immediati di coloro che. 
spesso, si trovano nella necessità di 
trasferire programmi in linguaggio 
macchina da un disco ad un altro. 
Coni e noto i comandi del Commo- 
dore 64 consentono il trasferimento 
mediante il Load e il successivo Save 
soltanto di programmi in Basicochc 
iniziano nella zona di Ram riservata 
al Basic (vale a dire dalla locazione 
di memoria 2049, in esadecimalc 
$0801 ). Il minicopiatore di queste pa- 
gine permetterà, invece, di trasferire 
qualsiasi programma da un disco ad 
un altro, qualunque sia la locazione 
di inizio. E’ bene precisare, però, che 
è possibile copiare soltanto file che 
nella directory vengono indicati co- 
me PRG. 

Il secondo fine è invece quello di 
fornire, a coloro che stanno muoven- • 
do i primi passi nel linguaggio mac- 
china, grazie al disassemblato com- 


mentato del programma, una pratica 
applicazione di numerose, piccole 
routine, utili per altri programmi. Tra 
le altre facciamo notare la routine di 
Input che serve al copiatore per co- 
noscere il nome del programma da 
copiare: vi è poi l’utilizzo delle routi- 
ne del Kernal per aprire e chiudere fi- 
le e per leggerne il contenuto; c’è an- 
che una routine che consente di leg- 
gere lo status del disk drive e di stam- 
parlo sullo schermo. 

Troverete inoltre la routine che a- 
spetta l’input di un carattere dalla ta- 
stiera e che corrisponde alla riga di 
Basic: 

100 gei a$:if a$— "" then 100 

mediante l’utilizzo della routine 
GETIN del Kernal. C’è la dimostra- 
zione di come utilizzare la routine 
che inizia alla locazione $AB1E per 
la stampa di stringhe: la stringa posta 
in memoria non deve essere più lun- 
ga di 255 caratteri e l’ultimo carattere 
deve obbligatoriamente essere uno 
zero. Dopo aver caricato l’Accumu- 
latore con il LSB e il registro Y col 
MSB della locazione in cui la stringa 
è collocata, basta saltare alla routine 
SAB 1 E per stampare la stringa di ca- 
ratteri sullo schermo. 

Vi sono, insomma, parecchie coset- 
te da studiare, imitare e magari perfe- 
zionare: un assioma fondamentale 


dell'informatica è che non esiste un 
programma che non possa essere ul- 
teriormente perfezionato! 

I tedeschi dicono: “Uebung macht 
den Meister”. l’esercizio fa il maestro. 
Esercitatevi, quindi, e non lasciatevi 
abbattere dalle difficoltà iniziali. 


Come usare il programma 

Il caricatore in Basic serve, come al 
solito, a creare sul vostro disco il pro- 
gramma definitivo in linguaggio 
macchina; controlla i dati, riga per ri- 
ga, e se vi sono discordanze provvede 
a segnalare le righe alle quali avete 
probabilmente commesso un errore 
di copiatura. Se il programma si 
blocca segnalando un errore nel loop 
che legge i DATA, ciò significa che a- 
vete inserito un numero maggiore 
di 256. 

Per sapere quale sia la riga alla 
quale avete commesso l’errore baste- 
rà dare il seguente comando diretto: 

prmt peek (64)* 256 + peek (63) 

e dovrebbe apparire sullo schermo la 
riga di DATA incriminata. 

Una volta che abbiate il vostro mi- 
nicopiatore su disco, sarà sufficiente 
caricarlo e dargli il RUN. come se si 
trattasse di un qualsivoglia program- 
ma in Basic. 
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L’UTILE 


100 REfl P. AGOSTINI: MINICOPIAT 
ORE DI PROGRAMMI 
110 DATA 011,000, 194,007, 15B,0 

50 . 040 . 054 . 049 . 000 . 067 

120 DATA 000,000,032,162,000,1 

69 . 253 . 160 . 000 . 032 . 056 

130 DATA 030,171,160,000,136,0 
02,032,207,255,153,110 
140 DATA 121,009,200,201,013,2 
00,245, 136,192,000,045 

150 DATA 240,240,152,234,162,1 

21 . 160 . 009 . 036 . 169 . 003 

160 DATA 255,169,006,166,000,1 

60 . 000 . 036 . 106 . 655 . 605 

170 DATA 032,192,255,036,193,0 
00, 165,006,200,091 , 154 

100 DATA 162,002,036,190,255,0 

32 . 220 . 255 . 160 . 000 . 044 

190 DATA 145,251,165,144,200,0 

06 . 032 . 179 . 000 . 076 . 190 

200 DATA 076,000,165,251,133,2 
53,165,252,133,254,154 

210 DATA 032,162,000,169,070,1 

60 . 009 . 032 . 030 . 171 . 003 

220 DATA 032,260,655,201 ,013,2 
00 , 249 , 169 , 002 , 162 , 239 

630 DATA 009,160,001,032,106,2 

55 . 032 . 192 . 255 . 162 . 003 

240 DATA 002,032,201,255,032,1 

06.000. 032.179.000.167 

250 DATA 165,251,197,253,200,2 
44 , 165 , 252 , 197 , 254 , 130 

260 DATA 200,230,032,106,000,0 

32.162.000. 076.193.119 

270 DATA 000,169,130,133,251,1 
69 , 009 , 133 , 252 , 169 , 151 

200 DATA 002,032,195,255,032,2 
04 , 255 , 096 , 230 , 251 , 016 
290 DATA 200,002,630,252,096,1 

60 . 000 . 177 . 251 . 076 . 172 

300 DATA 210,255,169,000,133,1 
44,169,013,032,210,055 
310 DATA 255,169,000,133,106,0 
32,100,255,169,111,210 


320 DATA 133,105,032,150,255,1 
64 , 144 , 200 . 026 , 032 , 049 
330 DATA 165,255,201,040,240,0 

12 . 133 . 002 . 076 . 239 . 091 

340 DATA 000,164,144,200,010,0 
32,165,255,032,210,204 
350 DATA 255,201,013,200,242,0 

32 . 106 . 255 . 032 . 204 . 092 

360 DATA 255,096,147,013,077,0 
73 , 070 , 073 , 045 , 067 , 156 
370 DATA 079,000,073,065,004,0 
79 , 002 , 069 , 032 , 060 , 199 

300 DATA 073,032,000,002,079,0 
71,002,065,077,077,206 

390 DATA 073,032,060,065,032,0 
60 , 073 , 003 , 067 , 079 , 120 
400 DATA 013,066,009,032,000,0 
65 , 079 , 076 , 079 , 032 , 099 
410 DATA 065,071,079,003,004,0 

73 . 070 . 073 . 032 . 000 . 206 

420 DATA 060,032,056,054,013,0 
13 ,070 , 079 , 077 , 069 , 027 
430 DATA 032,000,002,079,071,0 
02 , 065 , 077 , 077 , 065 , 190 

440 DATA 050,032,000,013,073,0 
70 , 004 , 006 , 079 , 060 , 055 
450 DATA 0B5, 092, 002, 069, 036,0 
70 , 005 , 079 , 006 , 079 , 245 

460 DATA 032,060,073,003,067,0 

79 . 032 . 069 . 032 . 000 . 103 

470 DATA 082,069,077,069,002,0 
69 , 032 , 002 , 069 , 004 , 203 

400 DATA 085,082,070,013,000,0 
00 , 000 , 000 , 000 , 000 , 002 
490 DATA 000,000,000,000,000,0 
00 ,000 , 000 , 000 , 000 , 000 

500 DATA 000,000,000,000,095,0 
95 , 047 , 047 , 015 , 001 , 044 
510 FOR I- 2049 TO 2444 STEP 
10:2-0 

520 FOR J-0 TO 9: READ X : CK-CK+X 
:Z-CZ+X) AND 255 : NEXTJ 
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530 READ W:RIGA«PEEKC63)+PEEKC6 
4) *256 

540 IF ZOU THEN PR I NT "ERRORE N 
ELLE RIGHE ” ; RI — 10 ; ; RI + 10 

550 NEXTIrlF CK0 4156B THEN PRI 
NT” fi ANCA QUALCHE RIGA DI DA 
TI”: END 

560 PRINT”DATI ESATTI: INSERIRE 
UN DISCO E” : PRINT ”P0 I PREN 
ERE UN TASTO” 

570 PDKE 190 , 0 : UIA I T 190,1:POKE 
1 90 , 0 : PR I NT ”OK ” : RESTORE 

5B0 OPEN 15,0, 15, ”I0”:OPEN 0,0, 
0, ”niNICOPIER,P,UJ” 


590 


600 


610 


620 


630 

640 


INPUT# 15, E1 , E1S : I F E1 THEN 
PRINT "ERRORE DISCO” ; E1 ; El$ : 
CLOSE 0 : CLOSE 15: END 
PRINT#8 , CHRSC 1 ) ; CHRSC0) ; : RE 
fi ATTENZIONE AL PUNTO E UI 
RGOLA \ ! I 

FOR I- 2049 TO 2444 STEP 
10 

FOR J-0 TO 9: READ X:PR1NT#0 
, CHRSC X) ; : REM ATTENZIONE A 
L PUNTO E U I RGOLA ! 

NEXTJ : READ LhNEXTI 
CLOSE B : CLOSE 15:PRINT”SUL 
DISCO C’E’ ORA IL TUO PROGR 
AMMA! ” 
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103 

JSR 

CLSFIL 

e chiuda il canal# col drive 

e • hinicopiatore di program 

10H 

LDA 

•<nsG8 

. stampe il messaggio 

3 • IN BASIC 0 

LINGUAGGIO 

MACCHINA 

105 

LOY 

»>nS38 

.eh» chi «da di Intarlr» 

1 • DA DISCO A 

DISCO 


106 

JSR 

BADIE 

; i i nuovo di eco 

s • 




107 




6 




1®« INPUT 1 

JSR 

GETIN 

. aspetta la praeaione 

7 • indirizzi usati n* 1 l • i«n«rb i sto 

109 

CfiP 

ecR 

dal tasto RETURN 

8 




110 

BNE 

IMPUTI 

; 

9 OEUNon 

• 

58* 


111 

LDA 

•902 

apre un canale 

10 IECTALX 

• 

9FF0H 


118 

LOX 

• 908 

.col drive 

11 SECAQR 

m 

5B9 


113 

LOY 

• 901 

; <ll noae dal fila resta 

12 SENDSEC 

• 

•rrs6 


111 

JSR 

SETLFS 

, inver latoi I ) 

13 IECINP 

m 

9FFA5 


US 

JSR 

OPEN 

.apre 

IH UN TALK 

m 

9fFBA 


116 

LOX 

• 90? 

.cor risponde 

15 SETLFS 

a* 

9FFBA 


117 

JSR 

CHKOUT 

.al comando NASIC CH02» 

16 SETNAn 

m 

■ PFBD 


11B INPUT 8 

JSR 

OUTPUT 

.routine c»e Invia 1 carattere 

17 OPEN 

m 

• FFC0 


119 

JSR 

INCREASE 

.incrementa l puntatori 

10 LL05E 

• 

• FFC3 


1£0 

LDA 

AUXl 

.confronti me ve loro ma* 

19 CMKIN 

■i 

5FFC6 


121 

cnp 

AUX? 

. e ' stato raggiunto 

?0 CHKOUT 

m 

• FFC9 


12? 

BNE 

INPJT2 

altr iment i dirama 

81 CLRCMN 

m 

*FFCC 


183 

IDA 

AUXIM 

1 

88 CKROUT 

m 

9FF02 


181 

cnp 

AUX2M 

( 

83 GETIN 

m 

*FFE1 


12S 

BNE 

1NPUT2 

s 

81 CHRIN 

• 

arFcr 


126 

JSR 

OUTPUT 

; routine Che invia 1 car . 

85 AUXl 

• 

9FB 


127 

JSR 

CLSFIL 

.chiudi il fila 

86 AUX8 

• 

*F0 


120 

Jnp 

REAOST 

; legge lo stato del drive 

87 STATUS 

• 

«90 


129 




?B CR 

m 

13 


130 • 


.■■■■■■■■■■a 


29 ERRF LAG 

m 

•0? 


131 




10 




138 CLSFIL 

LDA 

•«BUFFER 

.mette il valore delie 

31 




133 

STA 

AUXl 

; locaz . imz .del buffer 

38 

TP 

□N 

; tronca rioh» d» data 

131 

LDA 

• > BUFFER 

.nei puntatori 9FB/1FC 

33 




135 

STA 

AUX 1^1 

1 

IH • 


- — 


116 

LDA 

•90? 


3S 




137 

JSR 

CLOSE 

.chiude il cenale 2 

36 




136 

JSR 

CLRCMN 

idear chinml l 

37 

ORG 

*0bo : 

. start dal BASIC 

139 

RTS 



36 




1H0 




39 




IH 1 • 


— — ------- 


H0 

DA 

TwOBRK 

.link alla fin» dalla riga 

118 




HI 

DA 

19B6 

.numero di riga 

1H3 INCREASE 

INC 

AUXl 

. SFB/SFC - SFB/SFC ♦ 1 

H2 

ore 

99E 

. tak en di SYS 

1HH 

BNE 

1NCR1 


H3 

TXT 

?061 * ; 

Inrazin na inizio prg in 1 .a» 

115 

INC 

AUX 1*1 


HH 

BRK 


.Fine dalla riga BASIC 

1H6 INCR1 

RTS 



HS 1W08RK 

DA 

0 

; indica Fina programma in BASIC 

1H7 




H6 

FRR 

•P061 

; ne non corrisponda a £061 errors» 

i iB 



• 

H7 




1H9 




HB 




150 OUTPUT 

LOY 

• 500 

i invia 1 carattere 

H9 



— 

1S1 

LOA 

(AUX 1 ) , Y 

.al disk drive dopo averlo 

ca 




158 

Jnp 

CMROUT 

; prelevato dalla memoria 

51 




153 




S8 

JSR 

CLSFIL 

.chiudi 11 fila so aperto 

151 



»aa 

53 




155 




51 

LDA 

•<nsGi 

.carica L5B dal measaoold in A 

156 READSJ 

LDA 

•e 

; routine di lettura statua drive 

SS 

LDY 

• >rtSGl 

.carica HSB dal massaggio In Y 

157 

SIA 

STATUS 

; azzera la variabile SI 

56 

JSR 

SABir 

.va alla routlno di stampe rlgha 

150 

LDA 

•CR 

.stampa un RETURN 

S7 




159 

JSR 

CMROUT 

.sullo schermo 

58 

LDY 

«0 

■/rara il cantatora Y 

160 

LDA 

•B 

.periferica numera otto 

59 

STY 

ERPFLAG 

azzera il FLAG di arrora 

161 

STA 

QEUNun 

, nei 1 ' opportune locazione 

60 RO 

JSR 

CKRJN 

va alla routine di INPUT 

168 

JSR 

IECTALK 

. routine di TALK dal BUS 

61 

STA 

FILNAn. Y 

.e memorizza 11 nome del fila 

163 

UM 

• 5bf 

.indirizzo secondario 15 • 6*16 

62 

INY 


; mcramanta il contatore 

161 

STA 

SECADR 


63 

CnP 

• CR 

9« • RETURN fine dell* input 

165 

JSR 

SENDSEC 

.routine che invia indir sec . 

6H 

BNE 

RO 

altrimenti prandi carattere successivo 

166 

LDY 

STATUS 

.controlla variabile 3T 

66 




167 

BNE 

LOOPEND 

; 1 F ST <> 0 TMF.N ENO 

66 




160 

JSR 

IECINP 

.prende un carattere del BUS 

67 

DEY 


derrremenfa di 1 il contatore 

169 

cnp 

• 0 

ilo confronte con lo zero 

GB • 



(per svitare di uteri RETURN 

170 

BEC 

STLOOPl 

. se -0 tutto OKI ( 

69 • 



come parta del nome de) file») 

171 

STA 

ERRFLAG 

.altrimenti errore • 


CPY 

• 0 

.confronta lunghezza dal file 

178 

Jnp 

STLOOPl 

.salta ai loop di letture status 

71 

■a o 

RD 

9« -0 aspetta input 

173 




78 

TYA 


.tra9ferisce lunghezza dal 

171 STLOCP 

LDY 

STATUS 

; IF ST <> 0 TMEN ENO 

73 

NOP 


fila nell ‘accumulatore 

17S 

BNE 

LOOPEND 

2 

7H 

IO* 

• < F I LNAfi 

LSB dal nome in X 

176 

J5P 

IECINP 

.prende un carattere del BUS 

75 

LDY 

• > F I LNAft 

rtSB del nome in Y 

177 STL00P1 

JSR 

CMROUT 

;e io stampe sullo schermo 

76 

JSR 

SFTNAn 

90 t up file n«*e 1 

178 

Cnp 

•CR 

.lo confronta con RETURN 

77 

IDA 

■ 50? 

apr i 1 1 canale ? 

179 

BNE 

STLQOP 

se <> return continue 

70 

LOX 

■ 5QB 

.con la periferica B 

1 00 LOUPEND 

JSR 

UNTALK 

. al tr iment 1 termine 

79 

IDY 

■500 

.indirizzo «scandirlo 0 

IBI 

JSR 

CLRCMN 

iPulisce il canale di comunicazione 

00 

jsr 

SETLFS 

.set up logicai file n u mberi 

1B8 

RT5 



B1 

JSR 

OPEN 

routine di apertura cenale 

1B3 




B8 




19*1 •— 



»• 

B3 

JSR 

REAOST 

. legge il canale di errore 

105 




0H 

l DA 

ERRFLAQ 

. 9n vi e * un errore esca del prg 

IHh risei 

0F8 

117. 13 


06 

BNE 

CLSFIL 


107 

TXT 

'mini copiatore di programmi da disco 

06 




180 

DFB 

13 


87 

ID* 

• *0? 

.corri sponde a. cernendo BASIC 

1B9 

TXT 

* by paolo 

agostini pd 96* 

B0 

JSR 

CMKIN 

Cf10£ 

190 

DFB 

13.13 


09 LOOP 

JSR 

GETIN 

.prende un carattere 

191 

TXT 

myr« programma 

10 

LOY 

• *00 

.use V come puntatore per 

192 

Df 0 

0 


91 

SÌA 

AUXl ) . Y 

memorizzare i. carattere 

193 




3P 

LDA 

STATUS 

so SI non segnala fine del file 

191 nSG8 

DFB 

13 


93 

BNE 

INPUT 

.continua a caricare 

195 

1X1 

‘introdurre nuovo dieco e promare return* 

9H 

JSR 

INCREA5E 

. meramente puntatore SFB/SFC 

196 

DFB 

13.0 


SS 

jop 

taop 

« continua 

197 




96 




190 • 



• 

97 • 




199 




oa 




800 

BRK 



99 INPUT 

LDA 

Au<l 

io tutto e* terminato 

201 FILNAn 

OFB 

0.0, 0.0.8. 

0.0.0 

IN 

STA 

AuX8 

.mette in 9FQ/5FE il velora 

202 

DFB 

00.0.0.0. 

0.0.0 0 

iti 

LDA 

AliX 1 • 1 

deila locazione finale 

c03 




10? 

SIA 

AuX?*; 

dei file appena caricato 

2ch buffer 

DFB 

0 
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Quando uno schermo 

solo non basta 

di Mario Breccia 


1 1 programma proposto è formato 
da quattro routine uguali (cambiano 
soltanto gli indirizzi) che consento- 
no di avere in memoria due scherma- 
te grafiche Hi-Res oltre a quella nor- 
malmente disponibile nel C/128. 

Il programma caricatore le alloca 
dalla locazione $1300 in poi. senza 
disturbare, quindi, un programma 


Come tenere in 
memoria due 
schermate grafiche 
in alta risoluzione 
con il C/128 


Basic eventualmente presente in me- 
moria. Le routine utilizzano l'intera 
area di memoria posizionata da 
$9000 a SFCOO. Non si è ritenuto ne- 
cessario. infatti, abbassare i puntato- 
ri di fine programma. 

Per trasportare il disegno presente 
nella pagina grafica standard in uno 
dei due buffer, basta impartire SYS 
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GRAFICA 


4X64 per il primo, e SYS 5120 per il Come utilizzare le routine 
secondo. 

Lo scambio inverso di dati tra uno Digitate dapprima il programma 
dei buffer e l'area grafica è effettuabi- contenente le istruzioni Read. ..Data, 
le (avendo allocato le routine a parti- salvatelo, verificatelo e attivatelo. Se 
re da $1300) con SYS 4935 per il pri- lo avete trascritto correttamente corn- 
ino buffer, e con SYS 5191 per il parirà il messaggio: “Tutto O.K."; in 
secondo. caso contrario effettuate i controlli 

11 trasferimento dati è velocissimo del caso, 
poiché sfrutta tutta la velocità del mi- Digitate, quindi, il secondo listato 
croprocessore 8510. (demo) e lanciatelo con il solito 

Oltre a settare il bit 1 della locazio- Run. 
ne $1)030, infatti, attiva anche il Il suo funzionamento è banale: do- 
blanking, accelerando ulteriormente po aver disegnato un quadrato, que- 
Ic operazioni. Le routine sfruttano le sto viene memorizato nel primo buf- 
locazioni di pagina zero allocate da fer; in seguito lo schermo viene can- 

$FC a SFF. celiato per consentire il disegno di u- 

Agli esperti ricordiamo che ad ogni na circonferenza. La seconda parte 
“uscita" dalle routine ci si troverà nel del programma, mediante le Sys4935 
banco 15. L'entrata, invece, può esse- e 5191, permette di richiamare, ri- 
re effettuata da qualsiasi banco. spetti vamente, una delle due scher- 



mate memorizzate in precedenza. 

Inutile dire che nella zona di me- 
moria Ram, utilizzata dal program- 
ma LM, non devono esser presenti 
altre routine, pena l’inchiodamento 
del sistema. 


SCHEDA TECNICA 


Software LM applicativo di utilità 


Idoneo per computer C/128 in motto 
40 colonne; non adattabile ad altri 
computer Commodore. 

Consigliato agli appassionati di grafi- 
ca che vogliano sfruttare le doti del 
C/128. 


Anche i programmi pubblicati in 
queste pagine sono contenuti nel 
disco “Directory*” di questo mese. 



100 REM DEMO PER GESTIONE DEL BUFFER GRAFICO IN ALTA RISOLUZIONE PER C/128 
110 REM BY MARIO BRECCIA - ROMA 
120 : 

130 REM E * INDISPENSABILE CARICARE DAPPRIMA LE ROUTINE LMI 11 
140 : 

150 PRINTCHRSC147) "ORA DISEGNO UN QUADRATO CPREMI UN TASTO) ": GOSUB260 : GQSUB270 

160 BOX 1,20,60, 100, 140,0: REM DISEGNA UN QUADRATO 

170 GOSUB260 : SYS4064 : GOSUB2S0 : REM MEMORIZZA NEL PRIMO BUFFER 

180 PRINTCHRSC 147) "ORA DISEGNO UN CERCHIO (PREMI UN TASTO) GOSUB260 : GOSUB270 

190 CIRCLE 1,160, 100, 40, 40:REM DISEGNA CERCHIO 

200 GOSUB260 : SYS5120 : REM MEMORIZZA NEL SECONDO BUFFER 

210 GOSUB290 : PRINTCHRSC 147) ”1- SCHERMO 1* 

220 PRI NT ”2- SCHERMO 2" : PR INT"3- FINE 3“ : GOSUB260 : I FAS-”3”THENEND 
230 I F A$* ” 1 "THENSYS4935 : 6OSUB2B0 : GETKEY BS : GOSUB290 : REM RICHIAMA SCHERMO 1 
240 IFA$-"2”THENSYS5191:GO5UB280:6ETKEYB$:GOSUB290:REM RICHIAMA SCHERMO 2 
250 GOTO210 

260 GETKEY AS : RETURN : REM ATTENDE PRESSIONE TASTO 

270 GRAPHIC 1,1: RETURN: REM ENTRA IN MODO GRAFICO E CANCELLA 

200 GRAPHIC 1,0: RETURN .REM ENTRA IN MODO GRAFICO SENZA CANCELLARE 

290 GRAPHIC 0 , 1 : RETURN : REM TORNA AL MODO TESTO E CANCELLA 

300 END 


READY 


100 REM SCREEN-BUFFER HI-RES PER C-120 
110 REM BY MARIO BECCIA - ROMA 
120 : 

130 REM CHECKSUM - 10764 

140 REM AREA DI MEMORIA UTILIZZATA: S1300 - S138D 

150 REM $1300 - $13eD PER. LA PRIMA COPPIA DI ROUTINE C$9000 - $BC00) 
160 REM $1400 - S148D PER LA SECONDA COPPIA DI ROUTINE C$C000 - SFC00) 
170 : 

1 00 A-0 : X-0 : CK-0 : U I -1 : FAST : POKE53280 , 0 
190 DO: READ A 


60 - Commodore Computer Club 



GRAFICA 


200 IF A— 1 THEN EXIT 

aia POKE 4064+X , A : P0KE4935+X , A : PQKES120+X , A : POKE 5I91+X.A 

220 01— OI+l : IF 01-16 THEN 01-1 

230 CK— CK+A : X— X+l : C0L0R4 ,01: LOOP 

240 SLOU : READ CN: IF CN-CK THEN 350 

250 PRI NT "ERRORE DI TRASCRIZIONE" : END 

260 DATA 120,169,0,141,0,255,169,253.141 

270 DATA 49,208,169,0,141,17,209,169,63 

SBO DATA 141,0.255,169,0,133,254,133,252 

290 DATA 169,20.133,255,169,144,133,253 

300 DATA 160,0,177,254,145,252,200.208 

310 DATA 249,230,255,230.253,165,255,201 

320 DATA 64,208,237,169,0,141,0,255,169 

330 DATA 252,141,40,208,169.27,141,17 

340 DATA 200,00,96,-1,10764 

350 COLOR0 , 1 : C0L0R4 , 1 : C0L0R5 , 6 

360 PRI NT "TUTTO 0 .X . ” : P0KE4973 , 252: P0KE4975 , 254 : P0KES152 . 192 
370 P0KE5223 , 192 : P0KE5229, 252 : P0KE5231 , 254 : END 

READY . 


□isassemblato commentata di ScrBen-BuFFer por C/12B 

• 

01300 

78 



sei 


disabilita le interruzioni 

• 

01301 

a9 

00 


Ida 

#S00 

manda nel banco 15 

• 

01303 

Bd 

00 

FF 

sta 

SFF00 


• 

01306 

a9 

Fd 


Ida 

#$Fd 

attiva la modalità* FAST 

• 

01306 

Bd 

30 

d0 

sta 

Sd030 


• 

0130b 

a9 

00 


Ida 

#500 

attiva il blanking 

• 

0130d 

Bd 

11 

d0 

sta 

Sd011 


■ 

01310 

a9 

3F 


Ida 

#$3F 

manda nel banco 0 

• 

01312 

Bd 

00 

FF 

sta 

5FF00 


• 

01315 

a9 

00 


Ida 

#$00 


• 

01317 

85 

Fd 


sta 

SFd 


• 

01319 

B5 

Fc 


sta 

SFc 


• 

0131b 

a9 

le 


Ida 

#Slc 


• 

0131d 

B5 

FF 


sta 

SFF 

setta 1 puntatori di pag . zero 

• 

0131F 

a9 

90 


Ida 

#590 


• 

01321 

65 

Fd 


sta 

SFd 


• 

01323 

a0 

00 


ldg 

#500 

azzera g 

■ 

01325 

bl 

Fa 


Ida 

CSF e ) , g 


• 

01327 

91 

Fc 


sta 

CSFc) , g 

ciclo principale 

• 

01329 

cB 



ing 



• 

0132a 

d0 

F9 


bne 

51325 

se y<>0, vai a S1325 

• 

0132c 

e6 

FF 


ine 

SFF 

SFF-SFF+1 

• 

0132e 

b6 

Fd 


ine 

SFd 

$Fd-$Fd+l 

• 

01330 

a5 

FF 


Ida 

SFF 

carica l’acc. da SFF 

• 

01332 

c9 

40 


emp 

#$40 


• 

01334 

d0 

ed 


bne 

S1323 

se acc. <>40 ,vai a S1323 

9 

01336 

a9 

00 


Ida 

#$00 

manda al banco 15 

• 

01336 

Bd 

Ò0 

FF 

sta 

SFF00 


• 

0133b 

a9 

Fc 


Ida 

#$Fc 

riporta alla modalità* SLOUJ 

• 

0133d 

Bd 

30 

d0 

sta 

Sd030 


• 

01340 

a9 

l*b 


Ida 

#Slb 

elimina il blanking 

• 

01342 

Bd 

11 

d0 

sta 

Sd011 


• 

01345 

5B 



eli 


riabilita le interruzioni 

• 

01346 

60 



rts 


ritorna al basic 
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Viaggio 

airinterno 
della traccia 1 8 

Una chiacchierata per proseguire un 
discorso già iniziato in precedenza 

di Paolo Agostini 


fj allora? Avete copiato il monitor 
per dischetto presentato sul N.36? Al- 
lora è giunto il momento di andare a 
vedere com ò fatta “dentro” la trac- 
cia 18. 

Come si sono accorti tutti coloro 
che hanno abbandonato la lentissi- 
ma Datassette per passare al disk dri- 
ve, la cosa che distingue il disco ri- 
spetto al nastro è la preziosa presen- 
za della DIRECTORY, ovverosia 
dell'indice del suo contenuto. 

Questo “indice” è posizionato pro- 
prio nella traccia 18. Perchè pro- 
prio lì? 

Semplice: perchè si trova proprio al 
centro del disco e ciò rende più velo- 
ce l'accesso alle tracce più esterne 
(cioè la traccia 1 e la traccia 35). 

Nel lavorare con i file su disco (sia- 
no essi file programma, file sequen- 
ziali o di altro tipo) la testina deve 
“accedere” spesso alla Directory e bi- 
sogna fare in modo che, da qualun- 
que posizione si trovi, raggiunga la 
traccia 18 nel minor tempo possi- 
bile. 

Il posizionamento della testina di 
lettura, dalla traccia 18 alla traccia 1 
come pure dalla traccia 18 alla trac- 
cia 35. avviene in circa 5 decimi di se- 
condo, e il posizionamento dalla 
traccia 1 alla traccia 35 avviene in un 
tempo quasi doppio e tale periodo sa- 
rebbe inaccettabile per un disk drive 
degno di questo nome! 

Se volete determinare con precisio- 
ne il tempo impiegato dal VOSTRO 
drive, digitate il programmino di 
queste pagine, valido per il solo C/64. 
Se viene segnalato un tempo di posi- 
zionamento molto lungo (superiore a 
sette decimi di secondo), ciò sta ad 
indicare un disallineamento del disk 
drive, percui sarà opportuno prende- 
re misure adeguate (cioè far riallinea- 
re il drive). 

Il programmino utilizza alcune 
particolarità: una routine di posizio- 
namento del cursore del KERNAL 
viene chiamata per “disegnare” la 
nostra schermata e. dal momento che 
l'orologio TIS è impreciso a causa 
dell’impiego di routine di I/O, è stato 
utilizzato il T.O.D. (time-of-day-clock) 
per calcolare i decimi di secondo im- 
piegati dalla testina per posizionarsi 


sulla traccia desiderata. Il T.O.D. è e- 
sclusivo del C/64 e ne consegue che il 
listato non può essere adattato ad al- 
tri Commodore a meno di non ricor- 
rere al linguaggio macchina e allìn- 
terrupt. 

Da test condotti su drive differenti 
si possono trovare valori medi oscil- 
lanti tra4e6decimi di secondo, men- 
tre un drive che utilizza lo SPEED- 
DOS ha velocità di posizionamento 
compresa tra zero (cioè qualcosa me- 
no di 1 decimo di secondo) e 3. 

Nonostante dobbiate già sapere 


tutto su un disco, ricorderemo che e- 
sistono soltanto due modi per memo- 
rizzare dati su un dischetto. Il primo, 
detto “hard-sectoring” utilizza il fo- 
rchino posto quasi al centro del 
disco. 

Chissà quante volte vi sarete chiesti 
quale sia la sua funzione. Beh, nel si- 
stema Commodore non ne ha alcu- 
na. ma viene usato dai sistemi cosid- 
detti “hard-sectored” per indicare al 
Sistema Operativo del disco dove ini- 
ziano le varie tracce e settori. Vi sono 
anche certi sistemi che richiedono 
l'impiego di parecchi “fori” e, di con- 



Oi>(« 


tecnologia 

meccanica 


OTTA’ E TERRITORIO 

I (IRANISTICA 1M .NICA 
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seguenza, di appositi dischetti. 

Il Commodore impiega il sistema 
“soft-scctoring”, vale a dire che, du- 
rante la FORMATTAZIONE del di- 
sco, vengono “scritti” dal SOFTware 
(donde il nome) sulla superficie del 
disco dei "segni” magnetici speciali 
che indicano al Sistema Operativo 
(DOS, acronimo di Disk Operating 
System) dove iniziano le tracce e i 
settori. 

Così il Sistema Operativo ha modo 
di “controllare” che la testina venga 
posizionata proprio dove richiesto. 
Se comandiamo al disk drive di “ca- 
ricare” (LOAD) un programma, la te- 
stina si posizionerà sulla traccia 18, 


che contiene la DIRECTORY, cer- 
cando tra i vari nomi dei programmi 
quello indicato, “leggendo” il nume- 
ro della traccia e del settore iniziali 
del programma e poi. dopo aver spo- 
stato la testina sulla nuova traccia e 
settore, iniziando a “leggere” i dati 
dal disco. 

Come certamente immaginate, non 
tutti i cerchi concentrici che rappre- 
sentano le TRACCE sono della stes- 
sa lunghezza. Perciò le tracce più di- 
stanti dal centro sono divise in un 
maggior numero di SETTORI delle 
tracce più vicine al centro del disco. 

E' dunque importante sapere quan- 
ti siano i settori delle tracce dall i 
al 35: 


TRACCIA NUMERO 
DI SETTORI 

1 -17 dallo 0 al 20 

10-24 dallo 0 al 10 

25-30 dallo 0 al 17 

31-35 dallo 0 al 16 

Dopo la cruda teoria passiamo a 
qualcosa di più dilettevole riguar- 
dante la formattazione. 

Come sapete, la formattazione av- 
viene mediante il comando: 

OPEN 15,8.15, "NO:iiome disco.id" 

Orbene sostituendo i due valori 
deiriD con due TOKEN del BASIC, 
la vostra directory assumerà un a- 
spctto insolito. Per esempio il co- 
mando: 

NOinomc disco, ’’+CHR$< I46)+CHRS 

(128) 

vi permetterà di leggere una testata 
di directory la quale, al posto delle 
consuete due lettere dellTD, avrà i 
due comandi Basic WAIT ed END. 
Qui sotto troverete una lista dei to- 
kens e dei relativi numeri decimali 
da utilizzare per ottenere l’effetto de- 
siderato. Si potranno per esempio 
combinare i tokens per ottenere pa- 
role più o meno sensate, come RE- 
STORE NEXT (140,130) o THEN 
VERIFY ( 167,149) oppure NOT FRE 
(168.184), eccetera. 


Nro .dee . 

Token 

102 

ABS 

175 

AND 

190 

ASC 

193 

ATN 

199 

CHRS 

160 

CLOSE 

156 

CLR 

157 

CMD 

154 

CONT 

131 

DATA 

150 

DEF 

134 

DIM 

120 

END 

109 

EXP 

129 

FOR 

104 

FRE 

161 

6ET 

141 

GOSUB 

137 

GOTO 
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132 

INPUT# 

136 

LET 

200 

LEFTS 

155 

LIST 

147 

L0AD 

202 

niDs 

130 

NEXT 

160 

N0T 

159 

□PEN 

194 

PEEK 

151 

P0KE 

153 

PRINT 

152 

PRINT# 

135 

READ 

140 

REST0RE 

142 

RETURN 

201 

RIGHTS 

107 

RND 

130 

RUN 

148 

SAUE 

100 

SGN 

191 

SIN 

166 

SPCC 

106 

SOR 

169 

STEP 

144 

STOP 

196 

STR$ 

150 

SYS 

163 

TABC 

167 

THEN 

183 

USR 

197 

UAL 

149 

UERIFY 

146 

WA IT 

190 

COS 

165 

FN 

139 

IF 

133 

INPUT 

181 

INT 

195 

LEN 

188 

LOG 

162 

NEW 

145 

ON 

176 

OR 


185 

POS 

143 

REM 

192 

TAN 


E ritorniamo alla nostra traccia 18. 
Benché ogni settore di questa traccia 
sia importante, il settore zero è quello 
che ha il ruolo più delicato a causa 
dell'elevato numero di informazioni 
che possiede. 

Con il programma “Monitor" pub- 
blicato su CCC N.36 (o con un pro- 
gramma similare in vostro possesso) 
sarà ora possibile “sbirciare” in que- 
sto settore, intervenendo per modifi- 
care ciò che vogliamo. 

Normalmente la traccia 18 settore 0 
(esadec.: $12/$(X)) contiene le seguen- 
ti informazioni: 

000-001 

Linker: serve ad indicare quale sia il 
prossimo blocco di dati della direc- 
tory. Di solito questo linker punta al- 
la traccia 18, settore 1. Si noti che o- 
gni blocco di dati del dischetto è for- 
nito di un linker, se il valore è pari a 
SFF/SOO ciò sta ad indicare che il 
blocco in esame è l'ultimo della 
serie. 

002 

Indicatore di formato: nei dischetti 
formattati con il drive 1541 questo 
byte contiene sempre il valore di $41, 
corrispondente alla lettera “A". Se si 
cambia questo valore col monitor sa- 
rà impossibile poi scrivere qualcosa 
sul disco. 

003 

Non ha nessuna funzione 

004-143 

Contiene la B.A.M. (acronimo di 
Block Allocating Map) del disco. Ci- 
gni traccia è rappresentata da 4 byte. 
Il primo byte contiene il numero to- 
tale dei blocchi liberi di una traccia e 


gli altri 3 byte (per un totale quindi di 
24 bit) indicano quali settori di quel- 
la data traccia siano quelli liberi 
(bit = l ) e quali quelli occupati 
(bit =0). 

144-161 

Questi byte contengono il nome del 
disco. Ci li spazi vuoti vengono riem- 
piti con SHIFT-ed SPACEs (SAI), de- 
cimale 160). 

162-163 

ID (identificatore) del disco. 

164 

Contiene il valore $A() 

165-166 

Indicatore di formato per la testata 
della directory. Di solito contiene i 
valori di S32/S41 che vengono visua- 
lizzati come “2A’\ 

167-170 

Contengono il valore $A0 
171-255 

Solitamente questo spazio non vie- 
ne utilizzato. 


Utilizzate il monitor per studiare il 
contenuto della traccia 18 c del setto- 
re 0 dei vostri dischi, ma fate atten- 
zione che qualunque vostro inter- 
vento con l'opzione “W" potrebbe a- 
vcrc effetti letali sui dati e programmi 
in esso contenuti. 

Il secondo programma visualizza 
sullo schermo il contenuto della 
BAM oppure, a scelta, controlla se i 
singoli settori di un disco presentano 
problemi. Si consiglia di compilare il 
programma a causa della lentezza 
del Basic. Gli utenti di altri compu- 
ter, dopo un attento studio del listato, 
possono adattarlo ai propri calcola- 
tori. 


100 REFI DETERN INAZIONE UELGCITA 

9 

110 REM DRIUE 1541. 1571 
120 REI1 BY PAOLO AGOSTINI 
140 REM SOLO PER C/64 A CAUSA D 
EL RICORSO ALL’OROLOGIO ”SP 


ECI ALE” INTERNO 
150 : 

160 PRINTCHRSC 14?) : P0KE 53260 . 0 
: PQKE 53261, 0:GOSUB 410:GOT 
0 200 

170 REM POSIZIONAMENTO CURSORE 
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100 POKE 214 , R\ : PQKE 211.CVSYS 
50640: RETURN 
190 REM LOOP PRINCIPALE 
200 OPEN 0,0,0, 

210 T-l 

220 TR-TCT) :GOSUE 350 : PR I NT#15 , 
”U1 0 0 ” ; IR; 1 

230 GOSUE 300: R-;-l:C*;-0: GOSUB 1 

00 : PR I NTCHRS e 18 > ;CHR$C 30 ) ; L 
EFTSCSPS , 131»; 

240 PR I NTCHRS C 150) ;LEFTSeSP$, 13 
) ;CHR$e20);LEFT$eSP$, 13) 

250 R";-l : C*;-0 : GOSUB 100: IF Z< 10 
THEN PRINT TABCZ*4> ; CHRSC5 
) ;CHP$C221> ;CHRSC 154) 

260 R‘;-TR+5:C*i-2: IF TR>10 THEN 
R\-TR“13:C # S-22 

270 GOSUB 180: TR$-STR$eTR) : TR$- 
R 1 6NTSC TRI , LENC TRS J— 1 > : TR$- 
RIBHTSC ”00"+TR$,2) 

200 PRINTCHRSC 10) ; "TRACCIA ” ; TR 

S ; M : M ; 2 

290 R";-TR+5 : C*;-2 : I F TR>10 THEN 
R*;-TR- 13 : C*;-22 

300 GOSUB 100: IF Z<7 THEN PRINT 
-TRACCIA ”;TR$;”:”;Z 
310 GET A$ : I F A$< > ” - THEN CLOSE 
0 : CLOSE 15: END 
320 T-T + 1 : I F T-36 THEN 210 
330 GOTO 220 

340 REM AZZERA OROLOGIO INTERNO 
350 PQKE 56334, 129: FOR 1-56331 
TO 56320 STEP -1 
360 POKE I ,0:NEXT: RETURN 
370 REM LETTURA SEC. E DECIMI D 

1 SECONDO 

300 X-PEEKC 56329 > : Zl-0 : I F X<>0 
THEN ZI- CX/ 16 >*10+ CX AND 
15) : ZI— Zl*10 

390 X-PEEK e 56320 ) : Z- C X AND 15 
)+Zl : RETURN 

400 REM INIZI AL I ZZAZ I ONE 
410 DIM T C 35 > : FOR 1-1 TO 35: REA 
D Tei): NEXT . 

420 DATA 1,19,2.20,3,21,4,22,5, 
23,6,24,7,25,0.26,9,27 
430 DATA 10,20.11,29.12,30,13.3 
1,14,32,15,33,16.34.17,35,1 
0 

440 FOR 1-1 TO 39:SP$-SP$+CHR$C 
32): NEXT 


450 OPEN 15,9, 15, ”10”: INPUT HI 5 , 
E1,E1S 

460 IF E1 THEN PR I NT "ERRORE DIS 
CO: ”E1;.E1S: CLOSE 15: END 
470 R*;-0:C*;-4: GOSUB 100:PRINT M A 
LTA” : C";-16 : GOSUE 100: PRINT” 
NORMALE” 

400 C*;-29 : GOSUB 100 : PR I NT "BASSA 

19 

490 R*i-2 : C";-2 : GOSUE 100:PRINT”U 
ELOC ITA * DI POSIZIONAMENTO 
TESTINA" 

500 R*;-3 : C*;-5 : GOSUB 100: PRINT "E 
SPRESSA IN DECIMI DI SECOND 
0 " 

510 R\-4:C\-12: GOSUB 170: PRINT” 
SPACE PER FINIRE” 

520 RETURN 
530 END 

10 REM CHECK DISK ED ESAME B . A 
.M. 

20 REM BY PAOLO AGOSTINI 

30 : 

100 GOSUB 1500 

110 PR I NTCHRS e 147 ) ; PS ; TABe 11); 

-INSERIRE UN DISCO E” 

120 PRINT TABe 12) : "PREMERE UN T 
ASTO.”: GOSUB 150: GOTO 500 
130 : 

140 REM ATTENDE PRESSIONE DI UN 
TASTO 

150 POKE SID-4, 21 : FOR 1-1 TO 30 
0 : GET A$:IF A$< > ” ” THEN 190 
160 NEXT 

170 POKE S I D+4 , 20 : FOR 1-1 TO 10 
0 : GET AS: IF A$< > " ” THEN 190 
190 NEXT: GOTO 150 
190 RETURN 
200 : 

210 REM CHECK ERROR CHANNEL 
220 INPUT# 15 , E1 , E1S , E2 . E3 
230 RETURN 
240 : 

250 REM SCREEN FORMATTING 
250 I N- 1 146 : PR I NTCHRS ( 147 ) ; TAB 
(12); ”1”; TABC22) ; ”2" ; TABe 
32) ; ”3” 

270 FOR 1-1 TO 35: PRINT TABCI+2 
> ; R I GHTSeSTRSC I ) , 1 ) ; : NEXT : P 
RINT 
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2B0 PRINT TABC2) ; CHRSC 176) ; : FQR 
1-1 TO 35 : PRINT TABCI+2);C 
HRSC192); : NEXT 
290 PRINTCHRSC 174) 

300 POR 1-0 TO 20: IS-RIGHTSCST 
RSC I ) t LENCSTRSC I ) )-l)+CHR$C 
221 ) 

310 PRINT TABO-LENCIS)); 1$; T A 
BC30) ; CHRSC 221 ) : NEXT 
320 BUS- W CRUSD CRUOFF3”:FOR S-l 
7 TO 20: IF S-17 THEN T-31 
330 IF S-1B THEN T-25 
340 IF S-19 OR S-20 THEN T-1B 
350 PRINTCHRSC19) ; : FOR I — 2 TO 
S : PR I NT ” C DOUJN 3 " ; : NEXT 
360 FOR J-T TO 35: PRINT TABCJ+2 
) ; BUS ; : NEXT : PR I NT : NEXT 
370 BUS- BUS C 1 ) : P-19B3 : GOSUB 430 
300 BUS- ”TRACK : ” : P-1B90 : GOSUB 4 
30 

390 BUS- ”SECTOR : ” : P-1929 : GOSUE 
430 

400 PRINTCHRSC 19) ; : RETURN 
410 : 

420 REM REUERSE ONTO SCREEN 
430 FOR 1-1 TO LEN(BUS) 

440 Z-ASCCflI DSC EUS ,1,1)): I F Z<3 
2 THEN POKE P+ I , 160 : GOTO 4B 
0 

450 IF Z< 64 THEN POKE P+I,Z + 128 
460 IF Z> 64 THEN POKE P+I,Z+64 
470 POKE P+I+54272,PEEKC646) 

480 NEXT: RETURN 
490 : 

500 REH PRINT TRACK fi SECTOR 
510 BU$-STR$CT)+” " : P-1896 : GOSU 
B 430 

520 BU$-STR$CS)+” ” : P-1936 : GOSU 
E 430 • 

530 POKE IN+CS*40j+T,CAR 
540 POKE IN+CS*40)+T-54272, PEEK 
C646 ) 

550 RETURN 
560 : 

570 REM MENU PRINCIPALE 
500 GOSUE 260 : PR I NTPS ; TABC 10) " 
MENU” : PRINT 

590 PRINT: PRINT TABC 7) ; ”[ RUS3 1 
CRUOFF3 CONTROLLO DISCO” 
600 PRINT: PRINT TABC7) ; M C RUS3 2 


CRUOFF3 U I SUAL I ZZAZ I ONE E 
. A . M . ” 

610 PRINT ; PRINT: PRINT TABC 17) : ” 
QUALE ?” 

620 GOSUB 150: IF AS<>”1” AND A$ 
< > ” 2 ” THEN 620 
630 IF AS- ” 1 ” THEN 910 
640 : 

650 REM U I SUAL I ZZAZ IONE B.A.M. 
660 GOSUB 1170: REM INIZI ALIZZAZ 
IONE 

670 BUS-BUSC2) : P-1903 : GOSUB 430 
600 PR I NT#15 , ”U1 2 0 18 0” 

690 PR INT#15 , ”B-P 2 4” 

700 BUS- ”BLOCKS FREE : ” : P-1964 : G 
OSUB 430 

710 FOR T-l TO 35 
720 GET #2,SC$:SCS-SC$+CHR$C0) 
730 SC-ASCCSCS) : IF T<>10 THEN T 
S-TS+SC 

740 BUS-STRSC TS) : P-1976 : GOSUB 4 
30 

750 FOR H-0 TO 2 : GET #2,A$:IF A 
$-”” THEN AS-CHRSC0) 

760 SBCH ) -ASC C AS ): NEXT 
770 IF T< 36 THEN SA-16 

780 IF T< 31 THEN SA-17 

790 IF T<25 THEN SA-18 

800 IF T< 10 THEN SA-20 

010 FOR S-0 TO SA 

820 CAR-58 : I F FMSCS)-0 THEN C 
AR-42 

830 GOSUB 510 
840 NEXTS : NEXTT 
850 CLOSE 2 : CLOSE 15 
060 BUS-BUSC3) : P-1903: GOSUB 430 
870 GOSUE 150: IF AS-”-” THEN GO 
SUB 1260 
880 GOTO 580 
890 : 

900 REM CONTROLLO DISCO 
910 GOSUB 1 170 : REM INIZIALIZZAZ 
IONE 

920 BUS-BUSC4) : P-1903: GOSUB 430 
930 BUS- "STATUS : 0” ; P-1969 : GOSU 
B 430 

940 FOR T-l TO 35 
950 IF T< 36 THEN SA-16 
960 IF T< 31 THEN SA-17 
970 IF T<25 THEN SA-18 
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900 IF T< 10 THEN SA-20 
990 FOR S-0 TO SA 
1000 PRINT#15,”U1 0 0 ” ; T ; S 
1010 GOSUB 220 : IF El-0 THEN CAR- 
45 : GOSUB 510 : REM CAR-CARAT 
TERE UISUALIZZATO 
1020 IF E1<>0 THEN CAR-5: GOSUB 5 
10: GOSUB 1100 
1030 NEXTS : NEXTT 
1040 CLOSE 2 : CLOSE 15 
1050 BU$-BU$C5):P-19B3: GOSUB 430 
1060 GOSUB 150: IF AS-”«-” THEN GO 
SUB 1260 
1070 GOTO 560 
1000 : 

1090 REM ROUTINE DI ERRORE 
1100 BU$-STR$CE1):P-1976: GOSUB 4 
30 

1110 CLOSE 2 : CLOSE 15:0PEN 15,0, 
15, * 10”: GOSUB 220 
1120 IF E1 THEN BUS-3USC7) : P-19B 
3: GOSUB 430: END 
1130 OPEN 2,0,2, GOSUB 220 
1140 BUS-STRSC E1 ) + ” ” : P-1976 : GOS 
UB 430: RETURN 
1150 : 

1160 REM INIZIALI ZZAZ I ONE CANALI 
1170 GOSUB 260 : OPEN 15 , 0 , 15 , ” 10” 

: OPEN 2,0,2, ”#”:TS-0 
1100 GOSUB 220: IF El-0 THEN RETU 
RN 

1190 PRINTPS; TABC 14) ; "ERRORE DI 
SCO” 

1200 ERS-STRSCED + ”, "+E1S+”, ”+ST 
RSCE2)+” , ”+STR$CE3) 

1210 PRINT TABCC40-LENCER$))/2); 
ER$ 

1220 PRINT: PRINT TABC 12) ; "PREMER 
E UN TASTO": GOSUB 150 
1230 CLOSE 2 .CLOSE 15: GOTO 500 
1240 : 

1250 REM STAMPA SCHERMO 
1260 OPEN 127,4: POKE 760,105:PRI 
NT#127 

1270 CLOSE 127: POKE 760,139 
12B0 IF STO-120 THEN 1310 
1290 BUS-BUSC6) : P-19B3: GOSUB 430 
1300 GOSUB 150: GOTO 1260 
1305 REM PRENDE NOME DISCO 
1310 OPEN 15,0, 15, ”I0”:OPEN 2,0, 


2 l> ^ l) 

1320 PRINT#15, ”U1 2 0 10 0” 

1330 PRINT#15, "B-P 2 144” 

1340 FOR .1-0 TO 16 : GET #2,A$:IF 
AS-”” THEN AS-CHRSC0) 

1350 IF AS-CHRSC160) THEN 1370 
1360 NDS-NDS+AS 
1370 NEXT 

1300 CLOSE 2: CLOSE 15: PRINT”CHOM 
E3 " ; 

1390 IF LENCNDSX40 THEN NDS-CHR 
SC32XNDS 

1400 IF LENCNDSX40 THEN NDS-NDS 
+CHRS C 32) : GOTO 1390 
1410 BU$-ND$:P-1903: GOSUB 430 
1420 OPEN 1,3: OPEN 4,4 
1430 FOR 1-1 TO 25: FOR J-l TO 40 
1440 GET #1 , A$:BS-BS+A$:NEXTJ 
1450 PRINT#4,B$; : REM EUENTUALMEN 
TE ELIMINARE IL PUNTO E UIR 
GOLA 

1460 BS- ” ” : NEXT I 

1470 CLOSE 4: CLOSE 1 : GOTO 5B0 

1400 : 

1490 REM INIZI ALI ZZ AZIONE 
1500 CAR-42 : T- 1 : S-0 : PS- "CHOME3C 7 
DOWND ” : DIM BUSC15) 

1510 DEF FNSCZ)-2TCS-INTCS/B)*0 
) AND CSBC INTCS/8) ) ) 

1520 SI D-54272 : FOR H-SID TO SID+ 
24: POKE H,0:NEXT 
1530 POKE SID+1, 130: POKE SID+5,9 
: POKE SID+15 , 30 : POKE SID+24 
, 15 : POKE SID+4,20 
1540 BUSC1)-”** PAOLO AGOSTINI - 
DISK CHECKER 1906 *” 

1550 BUSC 2)-” BLOCK AUAILABILIT 
Y MAP - ATTENDERE 
1560 BU$C3)-”B.A.M. -PREMI UN TA 
STO C«- PER STAMPARE)” 

1570 BUSC4)-” CONTROLLO DISCO 
- ATTENDERE PREGO 
1500 BUS C5)-”CHECKUP- PREM I UN TA 
STO t> PER STAMPARE)” 

1590 BUSC6)-” ACCENDERE LA STAMP 
ANTE PER STAMPARE ! ” 

1600 BUSC 7)-” ERRORE DI INIZIALI 
ZZAZ I ONE DISCO liti ” 

1610 RETURN 
1620 END 
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Biglia elettronica 


Un gioco di totale disimpegno che metterà 
duramente alla prova riflessi e capacità 

di osservazione 


di Maurizio Dell'Abate 


D opo aver risposto alla domanda 
sul computer adoperato, è necessario 
scegliere il livello di difficoltà del gio- 
co, che può oscillare tra uno e 
dieci. 

Sul video saranno tracciate alcune 
linee oblique (ottenute mediante ca- 
ratteri grafici) interrotte in più punti; 
sopra di esse è rappresentata una 
pallina. 

Scopo del gioco è prevedere dove 
andrà a finire la biglia quando verrà, 
in seguito, lasciata cadere dal punto 
in cui è visualizzata. 

La biglia, com e intuitivo, segue un 
percorso verticale se non trova osta- 
coli; se invece incontra un ostacolo 
(linea) prosegue la sua caduta in dia- 
gonale fino a che non incontra un 
“buco”. 


Il discorsi) potrebbe sembrare com- 
plesso, ma comprendere il gioco è in- 
credibilmente semplice. Nei livelli di 
difficoltà superiori al primo, sono 
presenti sul video, oltre alle sbarrette 
diagonali, anche alcune “freccette" a 
sinistra: se la biglia cade su una di 
queste, si sposta immediatamente a 
sinistra di una posizione. 

La biglia giungerà, prima o poi, sul- 
l’ultima riga di schermo su cui sono 
visualizzate le lettere dell’alfabeto. 
Prima che il tempo messo a disposi- 
zione (inversamente proporzionale 
alla difficoltà) si esaurisca, è oppor- 
tuno comunicare al programma la 
lettera su cui si prevede che cadrà 
la biglia. 

Dopo aver premuto il tasto corri- 
spondente alla lettera la pallina ini- 



zia la simulazione della discesa; vie- 
ne quindi assegnato un punteggio, le- 
gato ai livello di difficoltà, che tiene 
conto anche dell’entità di un even- 
tuale errore di previsione. 

Effettuati dieci tentativi il gioco ter- 
mina e viene reso noto il punteg- 
gio. 

Provate ad individuare il percorso 
esatto nell’esempio riportato in figu- 
ra in cui la biglia raggiunge il 
12imo carattere. 


SCHEDA TECNICA 

Videogame a scopo didattico valido 
per computer C/64, C/16, Plus/4, ma 
facilmente adattabile ad altri compu- 
ter Commodore. 

Programma consigliato ai lettori 
principianti 

Anche il programma pubblicato in 
queste pagine è contenuto nel disco 
“Directory” di questo mese. 


100 REM BIGLIA ELETTRONICA 
110 REM M I CRO-GAME BY fi . DELL* 
ABATE 

120 REM PER C/64-12B-16 E PLUS 
/4 

130 : 

140 PR I NTCHRS C 147 ) 

150 PRINT”QUALE COMPUTER STAI U 
SANDO?" 

160 PRINT: PRINT”1 . COMMODORE 64 

99 

170 PRINT ”2 . COMMODORE 16 - PLU 
S/4” 

180 GET H$ 

180 IF H$-”l” THEN A-1024.-GOTO 
220 

200 IF H$-”2” THEN A-3072:GOTO 


220 

210 GOTO 180 
220 PR I NTCHRS C 147) 

230 INPUT ” LIUELLO DI DIFFICOL 
TfV DA 0 A 10” ; LU 
240 IF LU< 0 OR LCD 10 THEN RUN: 
REM UALORI FUORI DAI LIMIT 
I CONSENTITI 
250 GOTO 270 

260 PR I NTCHRSC 13) ; TABC 1B) ; CHR$ 
( 17 ) ; AS> : RETURN 
270 SC-0 

280 B"10 : REM NUMERO DIAGONALI 
290 : 

300 REM CREAZIONE CAMPO ** 

* 

310 : 
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320 FOR DL-1 TO 10: REM NUMERO 
TENTAI I U I 

330 PRINTCHRSC 147) : FOR 6-0 TO 2 
3 : PRI NTCHRS C 17 ) ; : NEXT : REM 
CURSORE SULL’ULTIMA RIGA 
340 PRINT TABC9) ; "ABCDEFGH I JKLM 
NOPQRSTUUUXYZ" ; 

350 A$- "CREAZIONE CAMPO 
360 GOSUB 260 

370 POKE A-»- 1 3 , 81 : REM CODICE PA 
LLINA 

380 FOR C-l TO B 
390 CT-A+B0*(C-1D+10 
400 CS-77 : REM CODICE BARRETTA 
DIAG. 

410 IF RNDC0X.2 THEN CS-32:REM 
COD. SPC 

420 IF RNDC0XLU/25 THEN CS-32 
430 IF RNDC 0 X LU/70 THEN CS-31 : 

REM COD. ^ 

440 POKE CT.CS 
450 CT-CT+41 

460 IF CT>A+959 THEN 4B0 
470 GOTO 400 
480 NEXT 
490 : 

500 REM *** INPUT LETTERA *«»* 
510 REM *** E CONTEGGIO 
520 : 

530 DS-" ” : R 

EM 20 SPC 

540 FOR CI-C20-LUX7 TO 0 STEP 
-1 : REM CONTEGGIO IN RAPPOR 
TO AL LIUELLO DI DIFF. 

550 AS-STRSCCI )+LEFT$(D$ , 20-LEN 
C STRS (CI))): GOSUB 260 
560 GET WS : I F ’ Ul$< "A” OR W$>"Z" 
THEN NEXT: REM CONTROLLA LA 
TASTIERA 

570 A$- "HA I SCELTO: ”+U$+” 

": GOSUB 260: REM 7 SPAZI 
580 FOR CI-0 TO 999: NEXT: REM R 
I TARDO 
590 : 

600 REM *** DISCESA PALLINA ** 

* 

610 : 

620 A$- "DI SCESA PALLINA... ":G 
OSUB 260 

630 XP-13:*P-0:Q-A 


640 LC-A+XP+YP*40 : IF LOA+959 T 
HEN 760 

650 POKE LC , 81 : REM CODICE PALL 
INA 

660 POKE Q,32:0-LC:S0-PEEKCLC+4 
0 ) 

670 IF SO-77 THEN XP-XP+1 : YP-YP 
+ 1 : GOTO 710 : REM PALLINA SU 
UNA BARRETTA 

680 IF SO-32 THEN YP-YP+l:GOTO 
710: REM LA PALLINA CADE NE 
L UUOTO 

690 IF SO-31 THEN XP-XP-1 : YP-YP 
+ 1 : GOTO 7 10 : REM PALLINA SU 
LLA FRECCETTA 
700 GOTO 760 

710 FOR TE-0 TO 50 : NEXT : REM RI 
TARDO 

720 GOTO 640 
730 : 

740 REM *** CONTROLLO E PUNTEG 
GIO *** 

750 : 

760 FOR MA-0 TO 50 : NEXT : CH-PEEK 
C LC+40 ) +64 : POKE LC , 32 : POKE 
LC+40 , 81 : REM CODE BIGLIA 
770 IF W$-”" THEN SP-0:GOTO B10 
: REM NESSUNA LETTERA E’ ST 
ATA SELEZIONATA 

780 IF ASC(LI$)-CH THEN OP-60:A$ 
-"PERFETTO! ! ” : GOS 

UB 260 : GOTO 800 : REM 10 SPC 
790 OP-30-ABSC ASC(UJSS)-CH) : A$-D$ 
: GOSUB 260 
B00 SP-OP*( LU+1 ) 

810 SC-SC^SP : REM INCREMENTO PU 
NTEGGIO 

820 FOR CI-0 TO 1999 : NEXT : REM 
DUE SECONDI 

830 PRINTCHRSC147) : PRINT” BONUS 
: ” ; SP 

840 FOR CI-0 TO 999: NEXT 
850 NEXT 

B60 PRINTCHRSC 147) 

870 PR I NT "PUNTEGG 1 0 " ; SC : PR I NT : P 
RI NT 

880 PR INT"PREMI UN TASTO” 

B90 GET AS : IF A$-"" THEN 890 
900 GOTO 220: REM NUOUA PARTITA 
910 END 


Commodore Computer Club - 69 



GRAFICA 


Grafica in Basic 

3.5 e 7.0 


Due routine per disegni casuali (e non) 
che girano alio stesso modo su C/16, 
Plus-4 e C/128. E inoltre: una routine 
di hard copy per la pagina grafica 

del C- 1 28! 


di Mauro e Stefano Ciurli 


Il programma “Random projcct” 
genera figure che potremo definire 
frattali ( o tridimensionali) mediante 
l'inserimento di ben cinque variabili 
che, nel listato, sono chiamate: 

RO : primo raggio 
RI : secondo raggio 
R2 : terzo raggio 
NG : numero di giri 
PA : passo 

Queste vengono memorizzate e di- 
segnate, in seguito, tramite il co- 
mando Draw, formando figure sim- 
metriche che forniscono, quasi sem- 
pre, l’illusione della terza dimen- 
sione. 

La routine di calcolo, cuore del pro- 
gramma, può essere eseguita in mo- 
dalità Fast (solo dai possessori di 
C/128) mentre i vari tratti disegnati 
possono esser riprodotti in modalità 
Slow in modo da osservare l’evolversi 
del disegno. 

Naturalmente il listato pubblicato 
è privo di tali istruzioni per consenti- 
re la perfetta compatibilità con il 
C/16 e il Plus-4. 

Nel menù iniziale vengono inoltre 
forniti alcuni valori già sperimentati, 
nonché la possibilità di ripetere 
l’inserimento. 

Il “numero gin' permette di defini- 
re il numero dei passaggi che la figu- 


ra deve compiere, mentre per “passo’’ 
si intende l’incremento tra i pas- 
saggi stessi. 

Chi possiede il C/128 può digitare, 
in coda, la parte del secondo listato 
contenente i Data relativi alla routi- 
ne di hard copy (che, lo ricordiamo, 
funziona solo per il C/128). 


Il programma Quark 

Il programma Quark permette di ge- 
nerare figure complesse nella moda- 
lità grafica 1 tramite valori Random e 
mediante l’istruzione Circle. 

La figura che si forma sullo scher- 
mo può essere fermata, e fatta riparti- 
re, mediante la pressione della barra 
spaziatrice, mentre premendo il tasto 
asterisco {*) si ritorna al menù. 

Le opzioni previste sono le se- 
guenti:- 

I: rivedi quark. 

Permette di ritornare allo schermo 
grafico e poi di nuovo al menù. 

2: hardcopy. 

Stampa il disegno ottenuto, grazie 
alla routine in linguaggio macchina, 
su Mps 801/803 o compatibili. 

3: stampa variabili. 

Stampa le variabili pseudocasuali 


trovate, sia sullo schermo sia su 
stampante (se è accesa) permettendo 
di prenderne nota in modo da ripro- 
durre il disegno, in un proprio pro- 
gramma, con la semplice istruzione 
Circle. 

4: centratura. 

Permette di centrare il disegno ese- 
guito in un'altra parte dello schermo, 
consentendo di ottimizzarne il po- 
sizionamento. 

5 : continua drawing. 

Consente di iniziare il processo co- 
struendo una figura. 

6: scelta variabili. 

Permette di inserire le variabili de- 
siderate nell'istruzione circle, offren- 
do, cosi, la possibilità di generare fi- 
gure ben precise (tra cui quelle realiz- 
zate in precedenza) o di modificare 
figure pseudocasuali create dallo 
stesso computer. 

La routine di calcolo, cuore del pro- 
gramma, viene eseguita in fast mode: 
i valori trovati vengono, naturalmen- 
te. compressi, per evitare che la figura 
possa trovarsi al di fuori dello scher- 
mo. Ad ogni modo le istruzioni Trap 
e Résumé evitano il verificarsi di er- 
rori tra cui, tra i più probabili, quelli 
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Lo variabili elaborate sono: 

Xi-Yi: sono valori trovati por aggre- 
gazione tramite le altre variabili X. Y 
e Z, permettendo l'ottimizzazione 
della centratura e una casualità 
maggiore. 

RT: fornisce la base di partenza del 
ciclo di disegno, che arriva a 360. 

R-Rl: permettono di assegnare for- 
me ellissoidali alla figura. 

H-S: forniscono la rotazione in gradi 
e i gradi tra segmenti. 

Alcuni suggerimenti 

Il programma Random Project è 
digitabile perfino sul C/16 senza ap- 
portare alcuna modifica. Per 


“Quark”, invece, è possibile digitarlo 
anche sul piccolo computer a patto di 
escludere la routine in linguaggio 
macchina (tutte le righe Data e quelle 
che la gestiscono) e tutte le istruzioni 
che non hanno significato nel Ba- 
sic 3.0. 

Anche le Rem devono essere omes- 
se, mentre le righe relative al menu, 
“ricche” di frasi esplicative, devono 
essere ridotte all'osso per evitare i 
messaggi di “Out of memory errori’. 

Si ricorda che, in fase di Input, è ne- 
cessario digitare solo i parametri che 
si intendono cambiare: gli altri, infat- 
ti. rimangono inalterati anche se ci si 
limita a battere il solo tasto Return. 

Per ciò che riguarda lu routine di Hard - 
Copy che, ripetiamo, gira solo su C/128 
in modo 128 , consigliamo di digitarla con 
la massima attenzione per evitare il 
Crash del sistema. 


SCHEDA TECNICA 

Software applicativo per: 

grafica 

didattica 

stampante 

Anche i programmi pubblicati in 
queste pagine sono contenuti nel 
disco “Directory” di questo mese. 

Idoneo per computer. C/16, Plus/4, 
C/128 

Difficilmente adattabile ad altri 
computer Commodore 

Consigliato l’uso della stampante 
Mps-803 (solo per C/128) 

Consigliato a tutti gli appassionati di 
grafica 


100 

110 

120 

130 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

350 

360 

370 

360 

390 

400 

410 

420 

430 

440 

450 


REM QUARK C / 120 

• 

REM GRAFICA PER C/120 IN NODO 126 

REH IN MODALITÀ * 40 COLONNE 

• 

• 

REH CONTIENE ROUTINE L .fi . PER HARD COPY DELLA PAGINA GRAFICA 

REM SU STAMPANTI MPS/003 E COMPATIBILI 

• 

REM BY MAURO E STEFANO CIURLI DI ROMA - 


TRAP1540 

COLORO , 1 : C0L0R4 , 1 ; COLORI , 0 : GRAPHIC1 , 1 

FOR I-1TO30 : X-INTCRNDC 1 1*320 1 + 1 : Y-INTC RNDC 1)*170) + 1: DRAUI1 , X , Y : NEXT 

S0UND1 , 40000 ,190,1,0,100,1,0 

FOR I - 10TO190STEP10 : DRAUI , 10 , I TO 1 , 190 

DRAU.310, ITO320-I , 190.-NEXT 

S0UND2 , 4000 ,50,0, 2000 , 400 

SLEEP2 

SCNCLR 

GO5UB1060 

COLORO , 1 : C0L0R4 , 1 : COLORI . 0 

CHAR1 ,4,12, "5BARRA-5T0P/C0NT DISEGNO *-MENU * ”, 1 : SLEEP2 : SCNCLR1 
GRAPH IC1 : FAST 

REM ROUTINE DI CALCOLO 

X-INTCRNDC0) *161 1+79 
Y-INTCRND(0)*101 1+49 
R"INT CRNDC 01*62) +15 
IFX-R<42THENX-X+1 : GOTO370 
I FX + R> 270THENX-X-1 : GOTQ300 
R1-INTCRNDC0)*77) 

I FY-R1< 39THENY-Y + 1 : GOTO400 
I FY+R1> 162THENY-Y-1 : GOTO410 
RT“ I NT C RNDC 0 1*101 1 
P"INT CRND(0)*10)+1 
Z-INTCRNDC0)*7)-3 
Zl-INT (RNDC0)*7)-3 





83 RT = 1 19 P= 


69 RI» 42 S= 61 Z = 0 Z 1= 2 
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X= 105 Y= 120 RT= 79 P= 12 
63 RI- 24 S- 14 Z— 3 ZI- 3 


•• 


99 


•9 


1 

2 

3 

4 


RIUEDI QUARK 
HARDCOPY 

STAMPA UARI ABILI 
CORREGGI CENTRATURA 
CONTINUA DRAUING 
DRAUJ QUARK 


99 


99 


SPACE-RUN-STOP DRAUJ . 


.1 
.1 
M 

,1 
,1 
.1 
M 

.•-MENU 


99 


9 » 



130 RT* 41 
74 RI- 32 
S- 3 Z — 1 ZI— 2 


460 S- I NT CRND(0)*181 ) 

470 ZZ-RNDCC0X1) 

400 Xl-X: YI-Y:FORH-RTTO360STEPP 
490 IFZZ> .82THEN520 

500 X I -X I +Z : Y I -Y I +Z1 : I FX I < 50RX I > 3140RY I < 50RY I > 194THEN590 
510 IFZZ< .31THEN530 
520 IFH >360THENH-360 

530 SLOU R 

540 CIRCLEl.XI , YI ,R, RI, 0,360, H,S 
550 GETUS : I FUS- " ,, THENGOSUB1020 
560 1 FU$“"* "THEN610 
570 NEXTH 

500 I FR I -1THENR I -0 : CHAR1 ,19,24, "PREMI ••• PER USC I RE . . " : GETKEYBS : GOTO610 
530 GETKEYUS 

600 REM MENU * OPZIONI 

610 GRAPH IC0 : COLOR0', 1 : COLOR4 , 1 : COLORS , 2 : SCNCLR 
620 CHAR1 ,0,0, " 

630 CHAR1 ,0,1,” QUARK QUARK QUARK QUARK QUARK 
640 CHAR1 ,0,2, ” 

650 CHARl.10,5, ” 

660 CHAR1 , 10 , 6 , ” 

670 CHAR1 , 10,7, 

6B0 CHAR1 , 10,0, 

690 CHAR1 ,10,9, 

700 CHAR1 ,10,10, " • 5 
710 CHAR1 ,10,11,” • 6 
720 CHAR1 , 10,12, ” 

730 CHAR1 ,0,24, ” 

740 GETKEYAS 

750 I FA$-"1 "THENGRAPH IC1 : RI-1 : GOTO5B0 
760 I FA$-”2”THENSYS5392 

770 I FAS- ”3”THENBEGIN : CHAR1 ,11,14, "LISTA UARIABILI ” 

780 PRINT : PRINT : PRINTTABC 8) "X-” ; X : PRINTTABC 15 ) "di'- " ; Y : PRINTTABC22) "3?T-" ; RT: PRIN 

TTABCB) "P-" ; P: PRINTTABC 15) "3?-” ; R: PRINTTABC 22) "UFI-" ; RI 

790 PRINTTABCB ) "S-" ;S: PRINTTABC 15) "3?-”; Z : PRINTTABC 22) "^l-" ; Z1 

800 0PEN4 , 4 : CL0SE4 : I FST<0THENB20 

810 0PEN4 ,4:PRINT#4, "LISTA UARIABILI " : PRINT #4 , CHR$( 13) , "X-";X; "Y-"; Y; "RT-";RT; "P 
-";P; "R“ ” ; R ; "R1-";R1 ; "S-";S; "Z-";Z; "Z1-";Z1 
820 CL0SE4 : BENO 

830 IFAS-"5"THENSCNCLR1 : GRAPHIC1 : GOTO320 

840 I FAS- ”4 "THENBEG I N : Ul INDOU0 , 14, 39 , 22 , 1 : CHAR1 ,11,0," COORDINATE CENTRO ".1 
050 CHAR1 ,5,2, "X— ” : PRINTX: CHAR1 ,31,2, "Y-":PRINTY 
860 CHAR1 ,5,4, "IMMETTI NUOUA ’X* ( 30-289) INPUTXS 
070 CHAR1 ,5,6, "IMMETTI NUOUA ’Y* ( 30/ 170 ) " : INPUTYS 

800 X-UAL ( X$ ) : Y-UAL C Y$ ) : SLEEP1 : SCNCLR1 : GRAPH I C 1 : U I NDOUJ0 ,0,39,24.1: BEND : GOTO400 
090 IFA$-"6"THENBEGIN: SCNCLR: CHAR1 , 16,0, "IMMETTI DATI" 

900 CHAR1 , 10,4, "CENTRO" :CHAR1, 18,3, "X 35/284": INPUTXS: IFUALCXSX35ORUAL(XS)>204T 
HEN900 

910 CHAR1 ,18,5, "Y 30/169": INPUTYS: IFUALC YSX30ORUALC Y$)>269THEN910 

920 CHAR1 ,10,0, "RAGGI ”:CHAR1 , 18,7, "R 15/80": 1 NPUTRS :*I FUALC R$ X 150RUALC R$ )> 80THEN 

920 

930 CHAR1 , 18,9, "RI 0/80" : INPUTR1S: I FUAL ( R1S ) > O0THEN930 

940 CHAR1, 10, 12, "ROTAZIONE IN. 0/180" : INPUTRTS: IFUAL(RTS)> 180THEN940 

950 CHAR1 , 10, 14, "PASSO ROTAZIONE 1/1B”: INPUTPS: I FUAL C P$)> 1BORUAL ( PS X 1THEN950 

960 CHAR1 ,10,16, "DEFINIZIONE 1/180": INPUTSS: I FUAL CSS X 10RUALC SS ) > 180THEN960 

970 CHAR1 ,10,18, "INCREMENTO- X 3/-3": INPUTZS: I FUAL C Z$ X -30RUAL CZS )> 3THEN970 

980 CHAR1 , 10,20, "INCREMENTO Y 3/-3" : I NPUTZ1S : I FUALC Z1S X -30RUALC Z1S )> 3THEN970 

990 X-UAL (X$) : Y-UALCYS) : RT-UALCRTS) : P-UALCPS) : S-UALCSS) : R-UALCRS) : R1-UALCR1S) : Z- 

UALC 2$ ) : ZI -UAL ( ZI $ ) 

1 000 SCNCLR1 : GRAPH I CI : ZZ-0 : BEND : GOTO400 
1010 GOTO740 
1020 GETKEYRS 
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"THENRETURN 
“TMENUS- : RETURN 


1030 IFRS-" 

1040 IFRS- 

1050 REH ROUTINE HARDCOPY 

1060 F AST : FOR I “5392TO5740 

1070 READA: POKEI , A 
1080 NEXT : SLOUJ : RETURN 

1090 DATA163 ,4,170,160, E55 , 38 , 186 , 255 
1100 DATA169.0.32, 189,255,32,192,255 

1110 DATA162 ,4,32,201, 255 ,169,8,32 
1120 DATA210 , 255,169,13,32,210, 255 , 169 
1130 DATA0, 141,3,21, 169,6, 141,4 

1140 DATA21, 169, 0,141, 0,21, 141,1 
1150 DATA21 , 169,128,141,5,21 ,173,3 
1160 DATA21 ,141,2,21,173,0,21,141 
1170 DATA6 , 21 , 173 ,1,21,41, 240 , 141 

1180 0ATA7.21 , 169,0,141 ,.8,21 . 141 
1190 DATA9, 21, 173,2,21,74,74.74 
1 200 DATA170 , 240 , 23 , 1 69 , 0 , 160 , 72 , 24 
1210 DATA152 , 105 , 64 , 16B , 104 , 105 ,1,72 

1220 DATA202, 208, 244, 140,9,21 , 104,141 
1230 DAT AB, 21 , 173, 2,21,41,7, 141 
1240 DATA10.21, 173, 1,21,41,7, 141 
1250 DATAI 1 ,21,169,7,56, 237 ,11,21 

1260 DATA141 ,11,21,24,169,0,109.9 
1270 DATA21 ,168,169,32,109.8,21,170 
1280 DATA152, 109,7,21 , 168,138, 109,6 
1290 DATA21 ,170, 152, 109, 10,21 , 141 , 13 
1 300 DATA21 , 13B , 105 , 0 , 141 , 12 , 21 , 172 
1310 DATA13, 21, 173, 12,21,133,252,169 
1320 DATA0 ,133,251, 177,251 , 141 ,14,21 

1330 DATA169 ,1,174,11,21, 240 ,4,10 
1 340 DATA202 , 208 , 252 ,45,14,21, 240 , 21 
1350 DATA173, 2, 21 ,56,237,3,21, 141 
1360 DATA15 , 21 , 169 , 1 , 174 ,15,21, 240 

1370 DATA4 , 10 , 202 , 208 , 252 , 24 , 109 , 5 
1380 DATA21 , 141 ,5,21 , 173,3,21 , 24 
1390 DATA109 ,4,21, 238 ,2,21, 205 , 2 
1400 DATA21 , 48 , 3 , 76 , 82 , 21 , 173 , 5 
1410 DATASI , 32 , 210 , 255 ,24,173,1,21 

1420 DATA105 , 1,141,1,21, 173,0,21 
1430 DATA10S ,0,141,0,21, 169 , 1 , 205 
1440 DATA0, 21 ,208,7, 169,64,205, 1 
1450 DATA21 , 240 ,3,76,65,21,169,13 
1460 DATA32, 210,255, 173,3,21,24,105 
1470 DATA7 ,141,3,21, 201 , 196 ,176,3 

1480 DATA76 ,57,21,201, 203 , 240 , B . 169 
1490 DATA3, 141,4,21,76,57,21,169 
1500 DATA15, 32, 210, 255, 169, 13,32,210 
1510 DATA255, 32,210,255, 169,4,32, 195 
1520 DATA255, 32,204,255,96 

1530 RETURN 

1540 GRAPHIC0 , 1:CHAR1,13, 12, MM 
1550 PRINTERRSCER) ; ” IN ”EL:SLEEP2 
1560 RESUHE610 
1570 END 


|7> //A/x 



x= 124 Y“ 142 RT- 49 P= 
RI- 4 S= 58 Z- 0 ZI — 1 


R= 73 



X= 201 Y= 135 RT* 42 P- 4 R- 69 
RI* 4 S= 1 Z— 1 ZI— 2 



X* 100 Y= 100 RT* 50 P-- 5 R= 80 
RI* 40 S* 30 Z* 1 ZI* 1 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 


REM C/120, C/16, PLUS 4 
REM PROGRAMMA DI GRAFICA: RANDOM 
REH BY H. & S. CIURLI - ROMA 
COLORI , 8 : C0L0R4 , 1 : COLOR0 , 1 : GOSUB590 
SCNCLR 

TRAP560 : GR APH I C0 

REn MENU 

C0L0R4.1: COLORO, 1 
SCNCLR: PRINT”J3 
PRINT "a 
PRINT "il 


PROJECT 


OPZIONI 



RANDOH PROJECT 


. 


il 


210 

PR I NT "ESEM . 30 

10 

50 

1 

. 1 ” ; 

220 

PRINT ” 

50 

-30 

75 

2 

.1” 

230 

PR I NT ” 

2B 

25 

20 

5 

.2” ; 

240 

PR I NT ,r 

50 

-20 

45 

5 

.1” 

250 

PRINT” 

36 

24 

12 

3 

.1-; 

260 

PRINT” 

72 

-48 

24 

2 

.2" 

270 

PRINT” 

50 

12 

3 

4 

.3”; 

280 

PRINT” 

-62 

-32 

12 

4 

.2” 

290 

PRINT” 

-50 

-12 

-3 

4 

.3”; 

300 

PRINT” 

-5B 

-25 

8 

4 

.2” 

310 

PRINT” 

50 

-48 

12 

4 

.2”; 

320 

PRINT” 

-50 

+48- 

-12 

4 

.2” 

330 

PRINT " tizi 






340 

INPUT ".SU 

PRIMO 

RAGGIO. 

. . ”;R0: AC0)-R0 

350 

INPUT”Ak 

SECONDO RAGGIO. 

. ; RI : AC 1 )-Rl 

360 

INPUT”ik 

TERZO 

RAGGIO. 

. . ** ; R2 : AC21-R2 

370 

INPUT "lU 

NUMERO GIRI . 


. . ” ; NG : AC31-NG 

380 

I NPUT "Jt 

PASSO. 







I •» 


400 

410 

420 

430 

440 

450 

460 

470 

400 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 


»• 


THEN150 


CALCOLO- 


1 : GOTO1B0 


GETKEYAS: IFAS-” 

XI -9999 

REH ROUTINE 

SCNCLR : GRAPH I CI , 1 
FOR A-0TO2*ir*NG+PA STEP PA 
GET A$ : I F AS-" ”THEN GRAPH ICO , 

XC-SINCA)*CR2+R1)+160 
X -XC+R0*CO5(A*R2/R1) 

YC-SINCA)*CR2+R1)+100 
Y -YC+R0*SIN( A*R2/R1 ) 

IF Xl-9999 THEN 520 
DRAUI1 , XK , YKTOXC , YCTOX , YTOX1 , Y1 
Xl-X : Yl-Y : XK-XC : YK-YC : NEXT 
GETKEYAS 

I FAS- ” "THENGRAPH I C0 : GOTO 150 
GOTO530 

GRAPHIC0: :PRINT”3ERRORE : PREMI 
GETKEYAS :GOTO150 

REM INTRODUZIONE 

U-l 3 : PR I NTCHRS C 147 ) 

GRAPH IC1 , 1 

FORK— 159T01S9STEP6 

Y-199:X-K+U«K: I FABSCX )> 160- CX< 1 DTHENX-SGNC X )*160+C X< 1 ) : Y-l 1 1 + C X-K 1*80/ (U*K ) 
DRAUJ1 , 160-K , 1 1 1TO160-X , Y 

DRAUJ1 , 160-K , 90TO160-X , 199-Y T- ^ 

nextk Av \ / ->v 

F- UT ( 1 /6 ) : Y-F /C M \ / / VftAfiJ/ / 

Y-Y*F : I FY> 93THENGETKEYAS : RETURN i 1 

DRAW1 , 0 , 100+YTO319 , 100+Y X" / 

DRAU 1,0, 94 - YT03 1 9 , 94- Y \X / ^ / ì \ 7 

G0T0670 ‘sZ ^7 • A 

END 


UN TASTO 


il 
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Caccia alla mosca 


pori l’approssimarsi della buona stagione, 
\ i fastidiosi insetti cercheranno in tutti 
i modi di arrecare disturbo... 


* % 


\ / 


di Paolo Scalabrini 


* 

A 


iS copo del gioco è abbattere le mo- 
sche che infestano il vostro giardino. 
Avete a disposizione un potente in- 
setticida che emette un massimo di 
15 micidiali nuvolette. 

Finite le “munizioni” il gioco ter- 
mina. Le scariche del l'insetticida si 
controllano con la tastiera (tasto cur- 
sore in alto= sinistra; cursore a de- 
stra = destra; barra spaziatrice = fuo- 
co). Ogni mosca abbattuta vale cin- 
que punti. 

Come digitarlo 

Il listato adotta lo standard suggeri- 
to su C.C.C. N. 39: è possibile digitare 
prima il cuore del programma (pri- 
mo listato) e poi i Data (secondo li- 
stato) relativi agli sprite, che sono in 
numero di tre. 

Sottolineamo che è necessario digi- 
tare il secondo listato mentre il primo 
è presente nella memoria del C/64. 

Il programma è “farcito" di REM 
che lo commentano diffusamente. 

Come funziona 

Per scopo didattico riportiamo la 
descrizione del listato che compare 
in queste pagine: 

10-15 definisce le variabili (notare 
la modularità) 

19-50 disegna il “campo di battaglia'" 
e posiziona gli sprite 


posiziona 

vai . 

fermo 

127 

su 

126 

giu* 

125 

destra 

119 

sinistra 

123 

sin+su 

122 

sin+giu * 

121 

des+su 

118 

des+giu * 

117 

f ire 

111 

f ire+su 

110 

f ire+giu * 

109 

f ire+sin 

107 

f ire+des 

103 

f ire+su+sin 

106 

f ire+giu * +sin 

105 

f ire+su+des 

102 

f ire+giu ’ +des 

101 


52-90 salta alle varie subroutinc 
120-150 lettura tastiera 
500 posiziona lo sprite 
600-651 routine che controlla che gli 
sprite non escano dallo schermo 
800-830 muove la nuvoletta spray 
820 controlla la collisione tra mosca 
e nuvoletta 

837 controlla il numero di colpi rima- 
sti a disposizione 
1000-1200 disegna gli sprite 


2000-2100 muove casualmente la 
mosca 

3000-3040 indica che il gioco è finito 
e ricomincia 

3500-3530 visualizza punteggio e il 
numero di colpi rimasti a disposizio- 
ne del giocatore 

4000-4010 fa precipitare la mosca 

I lettori che Io desiderano potranno 
gestire i movimenti per mezzo del 
joystick apportando un minimo di 
modifiche. 

Per facilitare le stesura della su- 
broutine relativa sarà certamente uti- 
le la tabella pubblicata che, evitando 
di ricorrere a complicati calcoli di 
AND logici e OR esclusivi, mostra i 
valori ottenuti leggendo la locazione 
56320 in seguito ai diversi sposta- 
menti delfassicella del joystick in 
Porta 2. 


SCHEDA TECNICA 

Videogame a scopo 
fondamentalmente didattico 

Anche i programmi pubblicati in 
queste pagine sono 
contenuti nel disco “Directory" di 
questo mese. 

Idoneo per il C764 e non adattabile 
ad àRri computer Commodore 
Consigliata la ri lettura 
del fascicolo N.39. 

Software particolarmente idoneo 
per gli utenti principianti 
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0 REM CACCIA ALLA MOSCA 

1 REM GIOCO PER C/64 

2 REM DI PAOLO SCALABR INI 

3 REM CAMPOMORONE CGE) 

4 : 

10 X-160: Y-100: Xl-160: Y1»220:R 
EM UARIABILI POSIZIONE SPR 
ITES 

11 U-53248 : S-54296 : REM DEFINÌ 
Z I ONE UIDEO E SUONO 

12 Q-0 : T-0 : REM UARIABILI DI C 
OMODO 

13 M=0 : C-15 : REM MOSCHE COLPII 
E - COLPI DISPONIBILI 

14 I N$= ” ” : REM INPUT UERSIONE 
TASTIERA 

15 JK-0 : REM INPUT UERSIONE JO 
YSTICK 

19 POKE U+21 , 3 : POKE U,X:POKE 

U+l , Y : PR I NT "CCLEARl ” : REM 
ACCENSIONE SPRITES E POS. 
MOSCA 

20 FOR T-1904 TO 2023: POKE 

T, 160: NEXT: REM DISEGNA PA 
UIMENTO 

30 FOR T-56256 TO 56295 : POK 
E T , 5 : NEXT : REM COLORE UER 
DE 

40 POKE 53280,0: POKE 53281,1 
4: REM BORDO NERO, SFONDO A 
ZZURRO 

50 POKE U+2 , XI : POKE U+3,Y1:R 
EM POSIZIONA LO SPRAY 

52 GOSUB 3500 

60 GOSUB 1000 

70 GOSUB 1100 

80 GOSUB 1200 

90 GOSUB 2000 

120 GET I N$ : REM LETTURA DA TA 
ST I ERA 

130 IF INS-” ” THEN GOSUB 80 
0: REM SE FIRE. . . 

140 IF IN$-”CDOUIND” THEN Xl-X 
1-10 : GOSUB 650: REM SE SIN 
ISTRA . . . 

150 IF IN$“”C R IGHTD ” THEN XI- 
X 1 + 10 : GOSUB 640 : REM SE DE 
STRA. . . * 

500 POKE U+2 , XI : GOTO 90: REM 
POSIZIONA LO SPRAY A NUOUA 


LOCAZIONE 

599 REM CONTROLLO CHE GLI SPRI 
TES NON ESCANO DALLO SCHERM 
0 

600 IF Y<50 THEN Y-50 

601 RETURN 

610 IF Y> 150 THEN Y-150 

611 RETURN 

620 IF X>255 THEN X-255 

621 RETURN 

630 IF X<24 THEN X-24 

631 RETURN 

640 IF Xl> 255 THEN Xl-255 

641 RETURN 

650 IF Xl< 24 THEN Xl-24 

651 RETURN 

799 REM MUOUO LA NUUOLETTA DI 
SPRAY 

000 POKE U+21 , 7 : POKE U+4,X1:P 
OKE U+5 , Y1 

010 FOR T-Yl TO 0 STEP -10: 
POKE U+5, T: GOSUB 2000 

019 REM CONTROLLA LA COLLISION 
E 

020 IF PEEKCU+301-5 THEN 400 
0 

030 POKE U+30 , 0 : NEXT : C-C-l 

035 GOSUB 3500 

036 REM SE NON CI SONO PIU’ CO 
LPI . . . 

037 -IF C-0 THEN 3000 

040 RETURN 

999 END 

1000 POKE 2040,0: POKE U+39,0:R 
ETURN : REM SPRITE 1 

1100 POKE 2041,0: POKE U+40,0:R 
ETURN: REM SPRITE 2 

1200 POKE 2042,0: POKE U+41,0:R 
ETURN: REM SPRITE 3 

1999 REM MOU I MENTO CASUALE DELL 
A MOSCA 


2000 A- 1 NT CRNDC 1 ) *0 ) + l : POKE S.l 
5: REM UOLUME MASSIMO 


2010 

IF A- 1 
610 

THEN 

Y-Y+15: GOSUB 

2020 

IF A-2 
600 

THEN 

Y-Y-15: GOSUB 

2030 

IF A-3 
620 

THEN 

X-X + 15 : GOSUB 
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2040 


2050 


2060 


2070 


20B0 


2050 


2100 

2939 

3000 

3010 

3020 

3030 

3040 

3495 

3500 

3510 


3520 

3530 

3599 

4000 


IF A-4 
630 

IF A-5 THEN X-X-15: Y-Y-l 
5 : GQSUB 630: GOSUB 600 
IF A-6 THEN X-X-15:Y-Y+1 
5 : 60SUB 630: GQSUB 610 
IF A-7 THEN X-X+15:Y-Y-1 
5 : GOSUB 620:GOSUB 600 
IF A-8 THEN X-X+15: Y-Y+l 
5: GQSUB 620 : GQSUB 610 
POKE U , X : PQKE U+l,Y:POKE 
S , 0 : REM POSIZIONO MOSCA E 
AZZERO UOLUME 
RETURN 

REM GAME OUER 

FQR T-l TQ 2000 : NEXT 
POKE U+21 , 0 : PRINT”CCLEAR! ” 
FQR T-l TQ 6 : PRINT CHRSC 
17 ) : NEXT 

PRINT TABC 15) "CBLEU1GAME 
OUER” 

FQR T-l TQ 5000: NEXT: RU 
N 

REM UISUAL IZZA PUNTI E COL 
PI RIMASTI 

PRINT "CROME! ” TABC32)”CNER 
Q1PUNTI C BIANCO! ” ; M 
PRINT TABC 32) ”C NERO! COLPI C 
BIANCO! ” ; C; : IF C<10 THEN 
PRINT”CLEFT! ” 

IF C-0 THEN 3000 
RETURN 

REM FACCIO PRECIPITARE LA 
MOSCA 

POKE U+21 # 3 : M-M+5 : C-C-l : FO 
R T-PEEKCU+1) TO 255: POKE 
U+l , T : NEXT : GOSUB 3500 
POKE U+5,0 
GOTO 90 
END 


THEN X-X-15: GOSUB 


4005 

4010 

4020 


C<10 THEN 


3000 


1030 DATA 65,2,0,33,50,16,24,20 
4,96 

1040 DATA 5 , 206 , 120 , 3 , 207 ,0,3,1 

35.0 

1050 DATA 1,50,0,0,252,0,3,51,0 
1060 DATA 4,120,120,0,120,64,16 
,0,32 

1070 DATA 0,0,0, 0,0,0, 0,0,0 
1100 POKE 2041, 14: POKE U+40,2: 
FOR T-0 TO 62: READ Q:PO 
• KE 096+T,Q: NEXT: RETURN 
1110 'DATA 192,0,0,207,0,0,49,12 
0,0 

1120 DATA 35,192,0,71,224,0,79, 

240.0 

1130 DATA 95,152,0,127,12,0,62, 

6.0 

1140 DATA 20 ,3,0,12,1,120,6,0,1 


1150 


1160 

1170 

1200 


1210 

1220 

1230 

1240 

1250 

1260 

1270 


DATA 3,0,96,1,120,112,0, 15 
2,240 

DATA 0,97, 240 ,0,51, 224 ,0,3 
1,192 

DATA 0,15, 120 ,0,7,0, 0,2,0 
POKE 2042, 200: FOR Z-0 TO 
62: READ □ : POKE 64*200+Z., 
□ : NEXT : POKE U+41 , 1 : RETURN 
DATA 20,0,0,54,0,0, 255 ,0,0 
DATA 183,0,0, 254 ,0,0,56,0, 
0 

DATA 40,0,0,0,0,0,0,0,0 
DATA 0,0,0, 0,0,0, 0,0, 0,0,0 
,0 

DATA 0,0, 0,0, 0,0, 0,0,0, 0,0 
DATA 0,0, 0,0, 0,0, 0,0, 0,0 
DATA 0,0,0 


999 END 

1000 POKE 2040, 13: POKE U+39,0: 
FOR T-0’ TO 62: READ Q:PO 
KE B32+T , Q : NEXT : RETURN 
1010 DATA 0,0,0,96,0,24,152,0,1 
00 

1020 DATA 132,0,132,130,1,4,66, 

1,0 
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Una questione 
di puntatori 


Alterando opportunamente 
alcuni puntatori 
che sovrintendono al drive, 
al Basic e al sistema operativo, 
si ottengono effetti sorprendenti 


Fi Ics 

(24184/24345) 

L'idea di creare una routine che visualizzi la direc- 
tory di un file non è nuova, ma dato che lo scopo di que- 
ste pagine è quello di divulgare utility interamente rilo- 
cabili. e sopratutto di spiegare come funzionano, c sem- 
brato opportuno soffermarsi sul formato di registrazio- 
ne dell'utilissimo catalogo dei programmi, posto sulla 
traccia 18 dei dischi registrati con i drive di formato 2A 
(1541, 1571, 2040. 4040 c compatibili). 

Riferendosi al programma Basic, fornito su disco nel- 
la confezione del drive (Test Demo), questo appare o- 
scuro e farcito di una serie di GET#; per meglio com- 
prenderlo bisogna sapere come è immagazzinato un 
programma Basic in memoria. 

I puntatori che indicano la prima locazione di me- 
moria riservata al Basic, sono quelli allocati in 43 e 44; 
se infatti, appena acceso il C/64, scrivete... 

PRINT PEEK(43)+ PEEK(44)*256 

...otterrete 2049, che è la locazione di inizio dell'area dei 
programmi Basic. 

Le prime due locazioni di ogni linea Basic contengo- 
no il puntatore alla linea successiva, ovvero se chiamia- 
mo “A" la locazione di inizio della linea, con Peek(a)+ 
Peek(a + 1)*256. otteniamo il numero del byte dell'ini- 
zio della linea successiva. 

Se le prime due locazioni della linea contengono en- 
trambe zero, vuole dire che il programma è terminato; 
in caso contrario i due byte successivi rappresentano il 
numero della linea Basic. 

E’ poi presente una sequenza di numeri, cioè i byte 
che compongono la linea stessa, che termina sempre 
con zero. 

Quando si registra un file su disco, con l'istruzione 
Save. verranno salvati anche due byte (posti prima del- 
l'inizio vero e proprio del file) che rappresenteranno la 


prima locazione di memoria del file registrato. 

La Directory viene strutturata come un qualunque 
programma Basic, in cui i numeri di linea rappresenta- 
no i blocchi occupati dal programma. 

Quando dobbiamo caricare la directory è necessario 
scartare i due byte registrati all'inizio e tutti i byte di 
link che normalmente indicherebbero l’inizio della li- 
nea successiva; quando, nella sequenza di byte del no- 
me. troviamo uno zero, vuol dire che la linea è termina- 
ta e i byte successivi rappresentano il numero della li- 
nea successiva. La Directory, caricata con: Load“$".8 
sembra simile ad un qualsiasi programma Basic; se, 
però, provate a digitare... 

Load'T.8.1 

...vi accorgerete della differenza! 

Come si usa 

Per utilizzare la routine proposta è necessario digita- 
re una delle due forme sintattiche seguenti; 

SYS (XXXX) 

oppure 

SYS (XXXX) Y$ 

in cui XXXX è la locazione di memoria da cui inizia, 
mentre YS. facoltativo, indica il comando. Si noti, dopo 
l'indirizzo della routine, l'assenza del carattere virgola 
(.) che, se presente, causerebbe un Syntax Error. 

Per il comando sono utilizzabili entrambi i patterns 
(asterisco c punto interrogativo): per caricare, ad esem- 
pio, il nomedi tutti i file che iniziano per “A", dovrete u- 
tilizzare come pattern “A*”. 

Al termine della visualizzazione è necessario preme- 
re un tasto qualsiasi per far riapparire il cursore. 
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1000 PRINTCHR$( 147) "F1LES” 

1010 PR INT"SERUE A CARICARE LA D 
IRECTORY” 

1020 PRINT "SENZA CANCELLARE I PR 
OGRAfini ” 

1030 PRINT "IN MEMORIA” 

1040 PR I NT : PR I NT ”SYS XXXX 
1050 PR I NT ”SYS XXXX ”CHR$( 34 ) "A* “ 
CHRSC34) 

1060 PR I NT ”SYS XXXX”CHR$( 34 ) ”??B 
A”CHR$ C 34 ) 

1070 RETURN 

1000 DATA 163,096,032,195.255,0 
32,121 

1090 DATA 000.208,006,169,001,1 

33.251 

1100 DATA 200,025,032,150,173,0 
32,130 

1110 DATA 183,152,133,251,230,2 
51,170 

1120 DATA 240,011,160,000,177,0 
34,153 

1130 DATA 065,003,200,202,208,2 

47.169 

1140 DATA 036,141,064,003,169,0 
96,162 

1150 DATA 000,168,032,106,255,1 

65.251 

1160 DATA 162,064,160,003,032,1 
89 , 255 

1170 DATA 032,192,255,032,103,2 
55,041 

1180 DATA 128,240,005,162,005,1 
00 , 000 

1190 DATA 003,162,096,032,190,2 
55,160 

1200 DATA 003,132,251,032,207,2 
55,133 

1210 DATA 252,164,144,200,047,0 
32,207 

1220 DATA 255,164,144,200,040,1 

64.251 

1230 DATA 136,208,233, 166,252,0 
32,205 

1240 DATA 109,169,032,032,210,2 
55,032 

1250 DATA 207,255,166,144,208,0 

10.170 

1260 DATA 240,006,032,210,255,0 
24,144 

1270 DATA 240,169,013,032,210,2 
55,160 

1280 DATA 002,200,198,169,096,0 
32,195 

1290 DATA 255,032,204,255,165,1 
97,201 

1300 DATA 064,240,250,169,000,1 
33,190 

1310 DATA 096,-1,22771 


ORIGIN : SC000 

LDA #$60 chiude il file #96 
JSR $FFC3 se e' aperto. 

JSR $0079 se non c’e’ nessun 
BNE *C010 parametro, 

LDA #$01 la lunghezza del nome 
STA $FB sera ' 1 , 

BNE *C029 

•C010 JSR $AD9E altrimenti prende la 
JSR $B702 stringa, 

TYA 

STA $FB calcola la lunghezza 

INC $FB 

TAX 

BEQ *C029 

LDY #$00 e la mette nell’area 
•C020 LDA ($22), Y di memoria temporanea 
STA $0341, Y 
INY 
DEX 

BNE *C020 

•C029 LDA #$24 aggiunge $ prima del 
STA $0340 nome del File, 

LDA #$60 il canale 96 , con 
LDX #$00 periferica disco e 
TAY 

JSR $FFBA 
LDA $FB 

LDX #$40 nome contenuto 

LDY #$03 nell'area temporanea, 

JSR $FFBD 

JSR $FFC0 viene aperto 
JSR $FFB7 se al controllo 
AND #$80 manca la periferica 
BEQ *C04E 

LDX #$05 device not present 
JflP ($0300) error. 

•C04E LDX #$60 dispone il canale 
JSR $FFC6 per input 
LDY #$03 apre un loop di 3 byte 
•C055 STY $FB 

JSR $FFCF prende un carattere 

STA $FC e lo mBtte in memoria 

LDY $90 controlla la 

BNE *C08F condizione d’errore 

JSR $FFCF prende un altro byte 

LDY $90 b controlla ancora 

BNE *C08F lo status 

LDY $FB se il loop e’ aperto, 

DEY 

BNE *C055 lo chiude 

LDX $FC ora contiene il numero 

JSR $BDCD dei blocchi in AX e 

lo stampa 

LDA #$20 stampa di seguito uno 
JSR $FFD2 spazio 
•C076 JSR $FFCF prende un byte 

LDX $90 e controlla lo status 
BNE *C08F 

TAX se il carattere e’ 0, 
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BEO 

•C0B6 

prossimo filename 


JSR 

SFFD8 

altrimenti lo stampa 


CLC 


passa al prossimo 


BCC 

*C076 

byte 

•C0B6 

LDA 

#$0D 

stampa un ritorno 


JSR 

SFFD8 

carrello 


LDY 

#$08 

e dispone un loop 


BNE 

*C055 

di due bytes 

*C08F 

LDA 

#$60 

chiude il file 


JSR 

$FFC3 



JSR 

$FFCC 


*C097 

LDA 

$C5 

e aspetta la pressione 


CMP 

#$40 

di un tasto. 


BEO 

•C097 



LDA 

#$00 

azzera il buffer di 


STA 

$C6 

tastiera e' torna 


RTS 


al basic 


Dolete (versione 2) 

(24346/24492) 

Spesso, durante la stesura di un programma Basic, 
capita di dover cancellare un gruppo di linee, e se l’e- 
lencoè lungo, lo spreco di tempo è enorme; c utile, allo- 
ra, disporre di una routine che esegua automaticamen- 
te. e velocemente, il lavoro. 

L’utility pubblicata, piuttosto breve, risulta più versa- 
tile di quella, analoga, pubblicala sul N.41. Su come 
funziona non ce molto da eli re: la routine calcola le lo- 
cazioni relative alla prima e alla linea successiva all'ul- 
tima riga Basic, spostando indietro la parte restante del 
programma e riaggiornando i puntatori. 

Si è preferito sfruttare la routine contenuta nel siste- 
ma operativo, posta a partire dalla locazione SA613. 
che si occupa della ricerca di una determinata linea in 
un programma; tale routine ò utilizzata, per esempio, 
per determinare l'argomento di Goto. 

Per il suo funzionamento bisogna allocare il numero 
di linea in SI4-S15 e saltare alla routine stessa; se il 
curry è settato vuol dire che la linea è presente nel pro- 
gramma e la locazione di partenza è contenuta in Ì5F - 
SbO; se il curry, al contrario, è posto a zero, la linea non è 
presente, e in S5F-S60 sarà contenuto il byte di inizio di 
quella con numerazione immediatamente più alta. 

( ome si usa 

Le sintassi disponibili sono quattro: 

SYS{XXXX)A 

SYS(XXXX)A.B 

SYSfXXXXjA, 

SYSfXXXXj.B 

in cui V e B sono il numero della prima e dell’ulti- 
ma linea 

Molta attenzione bisogna prestare al fatto che l'indi- 
rizzo va posto t ra parentesi e che, dopo la chiusura, non 
deve esser presente la virgola, pena la cancellazione ac- 


cidentale di gruppi di linee Basic. 

La prima sintassi cancella la linea A. la seconda le li- 
nee comprese tra A e B (estremi inclusi), la terza ‘A "e le 
linee successive, mentre l'ultima tutte le linee lino a 
“B*\ 


1000 PR I NTCHRSC 147 ) "DELETE” 

1010 PRINT”SERUE PER CANCELLARE 
LINEE” 

1080 PR 1 NT ” I N UN PROGRAMMA . ” 

1030 PRINT : PRINT”SYS CXXXX)A” 
1040 PR I NT ”SYS ( XXXX ) A , B” 

1050 PRINT "SYS ( XXXX ) A , ” 

1060 PR I NT ”SYS C XXXX ) , B ” 

1070 RETURN 

1080 DATA 038, 181 ,000,808,003,0 
76,008 

1090 DATA 175,144,004,801,044,8 
0B.037 

1100 DATA 038, 107, 169,038,019, 1 

66 . 038 

1110 DATA 181 ,000,840,018,801 ,0 

44.808 

1180 DATA 088,038, 115,000,038, 1 
07, 169 

1130 DATA 808,014, 165,080,005,0 

81.808 

1140 DATA 011,169,855,133,080,1 
33,081 

1150 DATA 808,003,076,008,175,1 

65.095 

1160 DATA 166,096,133,036.134,0 

37.038 

1170 DATA 019,166,144,014,160,0 

01 , 177 

1180 DATA 095,840,008,170,136,1 

77 . 095 

1190 DATA 133,095,134,096,165,0 

36 , 056 

1800 DATA 889,095, 170, 165,037,8 

89.096 

1810 DATA 168, 176,030, 13B, 084, 1 

01 .045 

1880 DATA 133,045,158,101,046,1 

33.046 

1830 DATA 160,000,177,095,145,0 

36 , 800 

1840 DATA 808,849,830,096,830,0 

37,165 

1850 DATA 046,197,037,176,839,0 

38,051 

1860 DATA 165,165,034,166,035,0 

84 , 105 

1870 DATA 008, 133,045, 144,001 ,8 

38,134 

1880 DATA 046, 038, 0B9, 166,076, 1 

16, 164 

1890 DATA -1,15484 
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ORIGIN: $C000 



JSR 

$0073 

se non ci sono 


BNE 

•C00B 

parametri 


JMP 

$AF08 

syntax error 

•C008 

BCC 

•C00E 

se non c’e un numero 


cnp 

#$2C 

ci deve essere 


BNE 

•C033 

una virgola 

*C00E 

JSR 

SA36B 

prende un numero 


JSR 

SA613 

e calcola i puntatori 




alla linea iniziale 


JSR 

$0079 

e se ci sono ancora 


BEO 

*C025 

parametri, ci deve 


cnp 

#$2c 

essere una virgola 


BNE 

•C033 

altrimenti errore 


JSR 

$0073 

prende un numero 


JSR 

$A96B 

e se ci sono ancora 


BNE 

•C033 

parametri errore 

♦C025 

LDA 

$14 

se il secondo 


ORA 

$15 

parametro e' nullo 


BNE 

*C036 



LDA 

#$FF 

mettB 65535 come 


STA 

$14 

defaul t 


STA 

$15 

poi salta la 


BNE 

•C036 

prossima istruzione 

•C033 

jnp 

$AF0B 

stampa syntax error 

•C036 

LDA 

$5F 

salva i puntatori 


LDX 

$60 

alla linea iniziale, 


STA 

$24 

CBrca la linea 


STX 

$25 

Finale e mette 


JSR 

$A613 

i puntatori in $5F-$60 


BCC 

*C051 

se la trova 


LDY 

#$01 



LDA 

C$5F) t 

Y prende i puntatori 


BEO 

•C051 

alla linea successiva 


TAX 




DEY 




LDA 

C$SF), 

Y 


STA 

$5F 



STX 

$60 


•C0S1 

LDA 

$24 

sottrae l’indirizzo 


SEC 


della successiva 


SBC 

$5F 

all 'attuale 


TAX 




LDA 

$25 



SBC 

$60 



TAY 


se il programma e’ 


BCS 

*C07C 

terminata, esce 


TXA 




CLC 


addiziona il numero 


ADC 

$2D 

di byte della linea 


STA 

$2D 

complementato a due 


TYA 


(quindi sottrae) 


ADC 

$2E 

ai puntatori di Fine 


STA 

$2E 

programma 


LDY 

#$00 


•C06B 

LDA 

C$5F),Y spostando la memoria, 


STA 

C$24) , 

Y cancella le linee 


INY 




BNE 

*C06B 



INC 

$60 



INC 

$25 



LDA 

$2E 


cnp 

$25 


BCS 

*C06B 


*C07C JSR 

$A533 

esegue un relink al 

LDA 

$22 

programma basic 

LDX 

$23 


CLC 

ADC 

#$02 

setta la Fine 

STA 

$2D 

del programma basic. 

BCC 

*C08B 


INX 

•C00B STX 

$2E 


JSR 

$A659 

esegue clr 

JHP 

SA474 

torna al basic. 

Reset look 


( 24493 / 24572 ) 


Ogni volta che accendiamo il computer, o che pre- 
miamo il tasto di reset, viene eseguita una routine chia- 
mata routine di reset: quando premiamo il tasto Resto- 
re viene eseguita una routine chiamata NMI (inlerrupt 
non mascherarle) che controlla se è premuto contem- 
poraneamente anche il tasto Run/Stop e. in caso affer- 
mativo. attiva la routine chiamata BRK. 

Nel sistema operativo del Commodore 64 è anche 
presente un controllo che permette di determinare se è 
inserito un cartridge nell'apposita porta, in modo da e- 
vitare che si possa interrompere il funzionamento della 
stessa, c tornare al Basic, e anche per eseguire l’auto- 
start all'accensione del calcolatore. 

Il computer si “accorge" se è presente una cartuccia 
verificando se. a partire da $8004, è presente la stringa 
CBMXO. in cui, al valore Ascii dei primi tre caratteri, è 
sommato 128. 

La locazione di inizio della nuova routine di Restore 
verrà messa a $800(>-S80()l. mentre quella di NMI a 
S8002-S8(X)3. 

Possiamo quindi manipolare la memoria facendo 
credere al computer che sia presente un cartridge e ge- 
stire, di conseguenza. nostre routine di NMI e Reset; sa- 
rà possibile, ad esempio, cambiare la routine di Reset 
in modo che aggiorni i puntatori ma non cancelli il 
programma presente in memoria evitando così che. in 
caso di malfunzionamento, lo stesso venga cancellato 
in seguito alla pressione di reset; potremmo anche pro- 
grammare il tasto di Restore in modo che fermi fesecu- 
zionc del programma alla prima pressione e che lo fac- 
cia ripartire alla seconda, ma vi sono tantissime appli- 
cazioni che lasciamo alla vostra fantasia. 

Come si usa 

Sono due le sintassi usate per questa routine: 

SYS XXXX 

SYS XXXX. RES. NMI 

in cui XXXX è la locazione d'inizio del programma. La 
prima sintassi permette di restaurare la situazione 
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standard di Reset c Rcstore; la seconda serve a porre la 
strìnga di controllo in memoria c a determinare l'inizio 
delle nuove routine di Reset (RES) e Rcstore (NMI). 

Se vogliamo lasciare invariata una delle due routine, 
cambiando l'altra, dovremo assegnare il rispettivo va- 
lore standard: 

64751: nel caso della routine di reset 
65 UH: per quella di NMI 

Come applicazione pratica potete indirizzare la rou- 
tine Files. pubblicata in queste stesse pagine, alla quale 
è però necessario modificare le ultime due righe di Da- 
ta come segue: 

1290 data 255.032.204.255.032.163,253 
1300 data 076.123.227 
1310 data - 1.21932 

La modifica consiste neHeliminare la routine di atte- 
sa pressione tasto (vedi disassemblato relativo) e nel- 
l' aggiungere due “salti": 

JSR $FDA3 
JMP SE 3711 

Tale modifica è necessaria perche il computer ha bi- 
sogno di sistemare alcune cose se viene attivata la routi- 
ne di Rcstore e di Reset. 

In pratica, digitando... 

SYS 24493.241 84.24 1H4 

...tutte le volte che premerete il tasto Rcstore verrà vi- 
sualizzata la Directory del disco presente nel drive. 


Il disassemblato 

Il disasscmhlato commentato relativo alle tre routine 
(ideate e scritte da Fabio Sorgato). sarà sicuramente ap- 
prezzato da coloro che studiano il Linguaggio Macchi- 
na. Da notare, soltanto, che le tre routine sembrano al- 
locate a partire da SCOOP; naturalmente, grazie alla loro 
rilocabilità. è possibile trascriverle in una qualsiasi zo- 
na Ram del C/64. 


1000 PRINTCHRSC 147) "RESET LOCK" 
1010 PRINT”SERUE A MODIFICARE LE 
ROUTINE" 

1020 PR INT "DI RESET E NMI" 

1030 PRINT : PRINT”SYS XXXX 
1040 PRINT "SYS XXXX, RES, NMI" 

1050 PRINT "STANDARD RES: 54751” 
1050 PRINT "STANDARD NMI:65118" 
1070 RETURN 

1000 DATA 032,121,000,200,011,1 
62 , 008 


1090 DATA 169,000,157,000,128,2 
02,016 

1100 DATA 250,096,032,253,174,0 
32,130 

1110 DATA 173,032,247, 1B3, 165,0 

20.141 

1120 DATA 000,120,165,021,141,0 
01 , 128 

1130 DATA 032,253,174,032,130,1 
73,032 

1140 DATA 247,183,165,020,141,0 
02,128 

1150 DATA 165,021,141,003,128,1 
69,195 

1160 DATA 141,004,120,169,194,1 
41,005 

1170 DATA 120,169,205.141,006,1 
20,169 

1180 DATA 056,141,007,120,169,0 

48.141 

1190 DATA 008,128, 096 ,-l,B926 


GRIGI N : $C000 


JSR 

$0079 

se non c’e’ nessun 

BNE 

•C010 

parametro 

LDX 

#$08 


LDA 

#$00 


•C009 STA 

$0000, X 

: toglie i byte 

DEX 


che indicano i JL blocco 

BPL 

•C009 

e ritorna al basic 

RTS 

•C010 JSR 

$AEFD 

prende una virgola 

JSR 

$AD0A 

e un parametro 

JSR 

$B7F7 

a 16 bit chB ìndica 

LDA 

$14 

la nuova routine 

STA 

$0000 

di reset e lo pone 

LDA 

$15 

a $8001-$8001 

STA 

$8001 


JSR 

$AEFD 

prende una virgola 

JSR 

$AD0A 

e il secondo parametro 

JSR 

$B7F7 

che indica la nuova 

LDA 

$14 

routine di restore 

STA 

$8002 

e che verrà * messo 

LDA 

$15 

a $8002-$8003 

STA 

$0003 

sistema la stringa 

LDA 

#$C3 

di controllo CBMB0 

STA 

$8004 


LDA 

#$C2 


STA 

$8005 


LDA 

#$CD 


STA 

$8006 


LDA 

#$38 


STA 

$8007 


LDA 

#$30 


STA 

$000B 


RTS 


e ritorna al basic 
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EPIX 3001 

la grande avventura 

continua... 


.Al line maggio, troverete nelle edi- 
cole il secondo numero di EPIX 300 l.con 
cinque adventures grafiche al postodi Ire: 
ta* nuove e due vecchie. Infatti nel nume- 
ro uno. per problemi di duplicazione, al- 
cuni quadri di Jack Byteson e Cave Quest 
risultavano illeggibili, motivo per cui è 
stato deciso di fornire ai nostri utenti del- 
le copie perfettamente funzionanti. 

Per coloro che non avessero comprato 
il primo numero, ne riassumeremo il con- 
tenuto: trame, personaggi c storie di sapo- 
re americano, ma testi e creatività tutta i- 
taliana. Storie che olirono le emozioni 
proprie del romanzo c del film, ma richie- 
dono al giocatore fantasia, abilità, memo- 
ria e pazienza per essere risolte. 

Il secondo numero contiene, cinque 
adventures grafiche. Analizziamole: 

1/ La seconda parte della spericolata av- 
ventura di Jack Byteson (un tipo alla In- 
diana Jones), impegnato alla ricerca di un 


magico amuleto che lo aiuterà a trovare la 
nave vichinga di Lrik il Rosso. Dopo es- 
sere stato, nel primo episodio, a China- 
town eccolo nel villaggio di Bjorg in Nor- 
vegia ... le gatte da pelare sono ben tre. 
Al giocatore scoprirle! 

2/ La prima avventura della serie “Hor- 
ror". un genere nuovo, le cui caratteristi- 
che sono racchiuse nel nome e non ha bi- 
sogno di molte spiegazioni. 

Intermezzo di mezzanotte" è il nome di 
questo gioco notturno, ambientato in un 
cimitero dal quale ò pressoché impossibi- 
le uscire. 

Un’ atmosfera cupa, vampiri che ripo- 
sano in bare riposte in cripte inviolabili, 
conducono il giocatore in un mondo so- 
vrannaturale. dal quale si può uscire, ma 
per farlo si ha bisogno, disperatamente 
bisogno, di qualcuno che dovrete cercare 
in questo lubre luogo. 

Un’ avventura ai confini del possibile! 


3/ “Intruder", anche questa è una nuova 
serie ambientala in un futuro prossimo. 

Gli “Intruder" sono degli androidi del 
lutto simili all'uomo che dall uomo sono 
stati creati, ma ad esso si sono ribellati ed 
ora vogliono distruggere il loro creatore 

Una sottile ed inattesa vena ironica at- 
traversai! gioco rendendolo piacevol- 
mente rilassante. Non ci sono eroi senza 
macchia ne peccato, ma protagonisti ca- 
ricature di loro stessi, nelle piccole come 
nelle grandi cose, nevrotici come gli uo- 
mini d’ oggi. 

Una vera novità nell'avventura! 

4/ Riproposizione del primo episodio di 
Jack Byteson alla ricerca della nave 
vichinga. 

5/ Riproposizione di: Cave Quest “Le ra- 
gazze farfalla". 

EPIX 3001, per te. che ami l'av- 
ventura! 
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L’altra posta 


Lettere, cartoline, raccomandate, pacchetti; 
mancano solo i telegrammi tra la 
corrispondenza che giunge ogni giorno 

in Redazione 


di Alessandro de Simone 


D a qualche tempo, incoraggian- 
do i lettori con un maggior spazio de- 
dicato alla rubrica “Domande Ri- 
sposte", la mole di corrispondenza 
da sbrigare è aumentata conside- 
revolmente. 

Un primo provvedimento è stato 
preso dedicando un maggior numero 
di pagine alla voce dei lettori; un'al- 
tra idea è quella di dedicare altre “co- 
lonne" per affrontare argomenti sol- 
lecitati dagli stessi lettori. 

Il continuare, o meno, per questa 
strada, verrà, come al solito, deciso 
dai lettori stessi; scriveteci per dire 
come la pensate e, soprattutto, per se- 
gnalare le vostre richieste (o in- 
soddisfazioni). 


Cqmmodore Computer Club, non ci 
stancheremo di ripeterlo, è una rivista 
che pubblica esclusivamente gli argo- 
menti sollecitati dagli utenti dei compu- 
ter Commodore. Chi ci ha scritto, solle- 
citato. pregato e... minacciato, non può 
negare che. in un modo o in un altro, è 
stato sempre accontentato. 

I Club 

Molto successo ha incontrato il no- 
stro suggerimento di fondare Club di 
appassionati di informatica. Alcuni 
di questi hanno fatto le cose in gran- 
de e vogliamo parlarvi di due di que- 
sti che sembrano molto attivi. 


Computer News è u n cl u b d i Za n i - 
ca (Bg) che si da parecchio da fare. 
Pubblica, addirittura, un bollettino - 
giornale (distribuito soltanto ai soci 
iscritti) ricco di informazioni, pro- 
grammi, progettini hardware e ven- 
dita per corrispondenza di hardware 
e software. La pubblicazione (per ora 
bimestrale) è ben curata e realizzata 
esclusivamente con output generati 
da Newsroom. Geos, Printshop e al- 
tre utility “creative" che dimostrano 
la loro validità nella stesura di pub- 
blicazioni del genere. 

L’iscrizione costa 30.000 lire: si ha 
diritto a sei numeri del bollettino, al- 
la pubblicazione gratuita di annunci 
economici, alla tessera con la pas- 
sword per la banca dati (!), a sconti 
del 40% sul software e del 20% 
sull’hardware proposto sulla stessa 
pubblicazione. 

Per informazioni rivolgersi a: 

Computer News Club 
Piazza della Repubblica, 16 
24050 Zanica (Bg) 

Tel. 035/67.22.13 (Q) 

035/67.27.08 

“Club Commodore Computer è un 
club di Finale Ligure la cui sede è sta- 
ta messa gentilmente a disposizione 
dal Comune della stessa cittadina. 
Anche questo Club ricorre al Geos e 
ad altri programmi consimili per la 
stesura del proprio bollettino. Tra le 
finalità sono da evidenziare quelle 
didattiche (corsi di alfabetizzazione 
informatica) e quella della diffusione 
di informazioni inerenti il software e 

I hardware Commodore. 

E’ possibile incontrarsi il martedì e 
il mercoledì (ore 21-23) nella sede che 
risulta dotata di un sistema C/64 
completo. La quota di iscrizione è fis- 
sata in L.50.ÌHX) annuali. Per in- 
formazioni: 

Club Commodore Computer 
P.zza Santa Caterina 
17024 Finale Ligure (Sv) 

II giardino elettronico 

Ricordate fi ndovi nello proposto 
tempo fa (C.C.C. N.39) in cui si chie- 
devano i parametri delle figure “D” 

e “L“? 
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Bene, per evitare che la soluzione 
cadesse in mani sbagliate, l’avevo 
trascritta su un foglio che ho poi na- 
scosto così bene che non sono più 
riuscito a ritrovarlo per parecchio 
tempo (ecco giustificato il motivo del 
ritardo con cui è stato ripreso l'ar- 
gomento). 

La soluzione è la seguente: 

Figura D: 

nodi- 6. angolo- 75, tronchi = 1 
Figura L: 

nodi= 3. angolo = 120. tronchi- 2. 
"P"~ 3. "NI "= 2, "N2"- I 

Il numero dei lettori che ha risposto 
all'indovinello è stato modesto per- 
chè. subdolamente, nell’articolo cita- 
to avevamo scambiato di posto alcu- 
ne figure... 

Nella classifica di bravura e perspi- 
cacia (senza togliere nulla al merito 
degli... esclusi) figurano i lettori: 

Matteo Salvadori di Desio (Mi) 
che, ignaro della “truffa” perpetrata 
ai danni dei lettori, ha inviato una 
dotta spiegazione sul perchè e sul 
percome i parametri non potevano 
essere quelli pubblicati. Mi sembri, 
caro Matteo, piuttosto in gamba: hai 
mai pensato di collaborare con la no- 
stra rivista? Desio è (quasi) a un tiro 
di schioppo dalla nostra Redazione 
che si trova in corrispondenza della 
fermata “Romolo" della Metropoli- 
tana. Vieni a trovarci, se non altro per 
ricevere il premio che hai dimentica- 
to di indicare nella lettera. 

Anche Gaia Ottaviano, di Roma, 
ha fatto notare la mancata corrispon- 
denza tra le varie figure pubblicate c. 
inoltre, allega una versione del pro- 
gramma modificato. Anche la sim- 
patica Gaia ha dimenticato di indi- 
care il premio desiderato, segno que- 
sto che i nostri lettori lavorano per la 
pura gloria (o no?). Se vuoi qualche 
nostro prodotto, comunque, non hai 
che da indicarcelo. 

Fabio Brugnera di Fontanelle (Tv) 
sottolinea che Io scambio di figure gli 
ha procurato l’ulcera ma, tuttavia, si 
accontenta di un libro per mettere le 
cose a tacere. Passando ad altro, per- 
chè invidiare Toma per la sua bravu- 


ra? lo sono convinto che chiunque, 
impegnadosi, può raggiungere livelli 
elevati: ad essere veri geni, infatti, 
non siamo in pochi. 

Paolo Valvo. di Pachino (Sr), è un 
quindicenne che, un po’ per volta, sta 
diventando un vero esperto. Ma per- 
chè non invii alcune routine per l’En- 
ciclopedia Basic? Visto che possiedi 
un C/l 28 puoi divertirti a proporne 
qualcuna in modo 128. Pensaci, anzi: 
ti ordino di inviarmi (su disco e cor- 
redate di articolo in Easy Script) al- 
meno tre routine: sono sicuro che sa- 
ranno apprezzate dai lettori proprio 
come tu. ora. fai con quelle che vedi 
ogni mese. 

Claudio Cimmino. di Nettuno (Ro- 
ma). ha inviato la risposta più breve 
di tutti (su una cartolina postale) e lo 
premiamo per la sua... originalità. 

Andrea Macis. di Muravera (Ca), 
merita in modo particolare di essere 
premiato perchè, avendo un C/16, ha 
adattato il listato al suo computer, in- 
dovinando la soluzione. 

Fausto M. assicura di essere in pos- 
sesso della soluzione ma che. nono- 
stante fosse giunto di persona nei 
pressi della nostra Redazione, ha a- 
vuto "paura" di fare un brutta figura 
ed è andato via. Caro Fausto, se sa- 
pessi come mettermi in contatto con 
te lo farei subito: diamine! norvsiamo 
mica dei mostri, e non abbiamo in- 
tenzione di spaventare chicchessia 
(cappitto mi hai). 

Naturalmente ringraziamo tutti gli 
altri che. ne sono sicuro, si rifaranno 
vivi con maggiore fortuna (e impe- 
gno...) in una prossima sfida. 


L'ascensore 

Anche questa “sfida" è stata raccol- 
ta da pochi (ma buoni). Il primo pre- 
mio in assoluto se lo merita sicura- 
mente Maurizio Migliaccio di Ambi- 
vere (Bg) che inizia la lettera chia- 
mandomi “Fantastico de Si mone” 
(per carità: sono un semplice iper- 
direttore verticale). Il bello è che non 


invia un programma ma un diagram- 
ma di flusso che occupa ben cinque 
fogli di formato A3! 

Purtroppo, per motivi di spazio, 
non posso pubblicare, nemmeno in 
parte, il notevole lavoro. Non rimane 
che rivolgere anche a te l’invito a col- 
laborare fattivamente con la rivista 
(Ambivcre è a un tiro di bazooka da 
Milano) e a ritirare il premio che. co- 
me i veri puri di spirito, hai dimenti- 
cato di indicare... 

Non male nemmeno il programma 
di Cristian Ghczzi di Fissone (Mi) 
che ha inviato un dischetto conte- 
nente programma, lettera, istruzioni 
e altre amenità (tranne, ovviamente, 
il premio desiderato in caso di “vitto- 
ria"). Poiché Fissone è a un tiro di 
fionda da Milano (quella grande), 
perchè non vieni a trovarci, soprat- 
tutto ora che hai un sistema C/64 
completo? 

Ringraziamo gli altri lettori (tra cui 
Lorenzo Morselli, di Ravenna: Mas- 
simo Arrigoni, di Milano: Eric Bolla- 
ti. di Reaglie) che hanno voluto dare 
il proprio contributo. 

A tutti gli altri lettori un consolato- 
rio: “grazie di cuore!” 


Lei non sa 
chi sono io 

Con mia grande (e piacevole) sor- 
presa ho letto numerose lettere di co- 
loro che hanno scritto esclusivamen- 
te per esprimere la propria solidarie- 
tà in merito alla poco civile missiva 
di un ex-utente della nostra rivista (la 
posta, N.39 pag.6). Tra i simpatici let- 
tori cito Ivan Pintori e Giuseppe Ga- 
sperini, di Roma; Michele Preziosi, 
di Cecina; Giovanni Vinci, di Cata- 
nia; Andrea Mei, di Bologna; Marco 
Brugnoli, di Campagnola (R E.); Ru- 
go Moreno di Venezia. 

I ra questi, oltre ad incoraggiarci a 
seguire la strada intrapresa, e a tra- 
scurare le eventuali critiche incivili 
che dovessero pervenire, alcuni ne 
approfittano per chiedere chi siamo 
e, in particolare, chi è Alessandro de 
Simone (cioè il sottoscritto). 
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Ho spesso proposto al mio editore 
di inserire un poster gigante che mi 
raffigurasse in tutto il mio splendore, 
ma mi è stato fatto notare che tra gli 
scopi di una casa editrice c’è quello 
di aumentare le vendite e non di 
contrarle. 

Mi limiterò a dire, nel modesto spa- 
zio concessomi, che sono nato a Mol- 
letta (Ba) il 19 novembre (scorpione 
puro) del 1947; mi trovo, quindi, della 
doverosa necessità di affermare che 
l’importante è essere giovani ‘‘den- 
tro”: per l’esterno ciò che è fatto è 
fatto. 

Ho seguito gli studi classici (nei 
cinque anni regolamentari) e in 
quarto ginnasio sono addirittura sta- 
to rimandato in latino e greco (ma 


l’insegnante, naturalmente, ce l’ave- 
va con me). 

Il corso di laurea in ingegneria è 
stato più sofferto perchè dedicavo 
tempo ad altre cose. Decisi scegliere 
il corso di ingegneria civile perchè 
l’elettronica potevo studiarla per 
conto mio (realizzando apparecchi 
da autodidatta e trascurando gli altri 
srudi) mentre sarebbe stato più diffi- 
coltoso, da autodidatta, costruire 
strutture in cemento armato. 

Sono abbastanza sposato e ho un 
figlio dodicenne. Fabrizio, che, in ac- 
cordo con la tradizione (secondo la 
quale gli interessi dei figli sono diver- 
si da quelli dei padri), se ne infischia 
totalmente di computer, tastiere, 
Ram e Chip, procurando, di conse- 


guenza. l’altrettanto tradizionale spi- 
na nel cuore del sottoscritto. 

Per altre informazioni (ma quali, 
del resto?) chiedete pure. 


Genitori e computer 

Alcuni lettori (tra cui Massimo T. di 
Massa Carrara) lamentano di non 
potere usare liberamente il proprio 
computer perchè i genitori, adducen- 
do futili motivi, tendono a limitarne 
l'uso; chiedono, quindi, un mio inter- 
vento in loro (dei figli, non dei geni- 
tori) favore. 

Se il computerè usato pricipalmen- 
te per videogame, sono dalla parte 
dei genitori; un qualsiasi bel gioco 
dura poco, e a questa regola non 
sfugge nemmeno il più sofisticato dei 
calcolatori. 

Se. però, il computer è usato per 
creare giochi, o software in generale, 

10 ritengo che i genitori commettano 
un imperdonabile errore se ne limi- 
tano l’accesso. Programmare, e im- 
parare a farlo, è una delle più costrut- 
tive attività che un giovane della no- 
stra era aljbia a propria disposizione. 
Per programmare è infatti indispen- 
sabile ricorrere alla razionalità e, 
contemporaneamente, alla fantasia; 
in altre parole c necessario studiare, 
in un modo o in un altro: impedire 
un’attività di questo tipo rappresen- 
ta. a mio parere, un omicidio cul- 
turale. 

Se, poi. l’alternativa per trascorrere 

11 tempo libero è rappresentata dal gi- 
rovagare senza meta per la città, non 
so quale beneficio possa apportare la 
proibizione dello studio del Basic. 

Il computer, in conclusione, se ado- 
perato opportunamente, deve esser 
considerato un amico fedele e, in o- 
gni caso, uno strumento che, volenti 
o nolenti, i nostri figli troveranno sul 
posto di lavoro (ammesso che riesca- 
no a trovarne uno...). 


C’è scuola e squola 

Michele Preziosi, di Cecina (Li), 
chiede lumi sulla possibilità di trova- 
re lavoro nel campo del computer e 
suggerimenti sui corsi di studio che 
offrano, in concreto, maggiori possi- 
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bilità <Ji inserimento nel mondo del 
lavoro. 

Il problema è delicatissimo e, in 
tempi di “preiscrizioni", di notevole 
attualità. 

Tutti, e noi per primi, scommettono 
sul roseo futuro del ('informatica, nel- 
la sua accezione più vasta: hardware, 
software, elettronica, telematica, reti, 
eccetera eccetera. 

Sembrerebbe, quindi, che l’ideale 
sia di iscriversi ad una scuola per 
programmatori. In realtà si commet- 
terebbe un errore gravissimo limitan- 
dosi a “seguire” la corrente. Io riten- 
go che l'importante sia cercare un la- 
voro che, principalmente, soddisfi 
chi Io svolga; conosco molte persone 
che, per ripiego, sono costrette ad ac- 
contentarsi di un posto che. pur se 
ben remunerato, crea un perenne 
senso di frustrazione ed insoddisfa- 
zione che si manifesta anche al di 
fuori del tempo dedicato al lavoro 

stesso. 

Hanno un bel dire i nostri capoc- 
cioni del Palazzo che in una società 
moderna, in caso di necessità, biso- 
gna attuare la mobilità del lavoro; in 
altre parole ci vogliono far credere 
che se il lavoro in miniera non rende 
più, ma c'è richiesta di palombari, i 
minatori possono benissimo cam- 
biar mestiere e indossare gli sca- 
fandri. 

Naturalmente lo stesso consiglio 
vale anche per gli odierni appassio- 
nati di computer: non pensate che la- 
vorare con un calcolatore consista 
solo nel modificare i Link del Ready 
o nel l'imposta re un nuovo percorso 
per finterrupt. Molto spesso capita di 
lavorare su progetti noiosissimi, po- 
co creativi e, di conseguenza, alie- 
nanti e simili a tanti altri che. para- 
dossalmente, avete scartato. 

Incominciamo subito, quindi, col 
dire che il diploma di scuola media, 
da solo, non serve a nulla, e spero che 
il giovanissimo Francesco Ambro- 
gio, di Modena, si convinca a conti- 
nuare gli studi incautamente inter- 
rotti. Con Francesco, infatti, ho avuto 
una discussione forse troppo polemi- 
ca e categorica, ma non me la sentivo 
assolutamente di avallare la sua deci- 
sione di limitarsi alla licenza media. 
Le note vicissitudini della scuola ita- 
liana, d’altra parte, hanno portato la 


didattica nazionale ai confini della 
realtà. 

Io ritengo che la scuola media, co- 
me è attualmente, sia stata inventata 
dai Russi per renderci tutti stupidi e 
favorire l’invasione. 

Se ci limitiamo, infatti, a guardare i 
programmi della Scuola Media e le 
intenzioni che li hanno generati, 
sembra di raggiungere l'apice supre- 
mo della Cultura; nella pratica, inve- 
ce. una paurosa massa di tredicenni 
giunge alle scuole superiori con una 
devastante ignoranza che supera 
qualsiasi immaginazione. Tra le la- 
cune che si trascinano dietro brillano 
la mancanza di autonomia, la pres- 
soché totale assenza di spirito critico 
ed una carenza quasi incolmabile di 
responsabile razionalità. 

La situazione nelle scuole superio- 


ri. pur se migliore, lascia molto a de- 
siderare, tanto che molte associazio- 
ni di industriali e commercianti (che 
rappresentano il mondo del lavoro) 
lanciano spesso pietosi appelli ai re- 
sponsabili della Pubblica Istruzione 
affinchè, eufemisticamente, si rin- 
tracci un migliore “aggancio” con le 
reali esigenze produttive del Paese. 

Uno dei mali della scuola è. a mio 
parre. la demotivazione degli inse- 
gnanti che, in una percentuale che 
sarebbe interessante stabilire, inse- 
gnano “per ripiego" o per tranquilli- 
tà. L’aggiornamento è affidato al loro 
buon cuore, il mondo del lavoro è vi- 
sto come un miraggio lontano sul 
quale ha la meglio il rispetto del Pro- 
gramma Ministeriale (qualunque sia 
la sua vetustà). Ho visto programmi 
di elettronica che si fermano alle val- 
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vole termoioniche e programmi di 
meccanica che nemmeno accennano 
alle moderne macchine a controllo 
numerico; e i robot? non si studia la 
fantascienza. Ho conosciuto inse- 
gnanti di disegno meccanico che non 
sanno nemmeno che cosa sia il 
Cad/Cam e che si rifiutano di parlar- 
ne ai propri studenti perchè “non c'è 
scritto nel programma". Ho sentito 
parlare, viceversa, di un preside che è 
stato duramente criticato per aver li- 
cenziato insegnanti che si dichiara- 
vano incapaci a svolgere il pur arre- 
trato programma di elettronica. 

Nonostante il quadro non certo 
confortante (e forse molto personale; 
ma gradirei il parere dei lettori anche 
su questo) io ritengo che la scuola su- 
periore italiana riesca ancora a dare 
moltissimo al giovane che intenda 
frequentarla seriamente. Per fortuna, 
e in ciò sono confortato dal consenso 
di molti giovani con i quali sono a 
contatto, in ogni classe della scuola 
superiore italiana esiste almeno un 
paio di insegnanti (soprattutto di ita- 
liano. di storia, di scienze; e mi per- 
donino gli altri che possono, comun- 
que. protestare vibratamente) per i 
quali sarà valsa la pena frequentare 
la scuola. 

Ciò che un professore (realmente 
motivato e appassionato per la sua 
materia, qualunque essa sia) riesce a 
trasmettere ai propri allievi, è un be- 
ne prezioso che non può essere de- 
scritto, ma solo provato. A patto, ov- 
viamente, di essere in grado di ri- 
ceverlo. 

Per ciò che riguarda il corso di stu- 
di. come è facile intuire, non oso dare 
consigli. Mi limiterò a ricordare che 
il futuro offrirà calcolatori sempre 
più complessi, piu intelligenti, dotati 
di linguaggi sempre più evoluti e di 
semplice uso. Buttandosi a capofitto 
in un corso di programmazione “pu- 
ra” si corre lo stesso rischio corso da- 
gli autisti di autovetture dell'inizio 
del secolo: all'inizio, infatti, saper 
guidare un’auto era piuttosto difficile 
e, quantomeno, inusuale. Quando, 
però, le auto furono di facile uso, tutti 
furono in grado di guidarle e l'auti- 
sta, risultato non indispensabile, fu 
riciclato nelle fabbriche, nelle offici- 
ne di riparazioni, nella guida degli 



ad ogni buon conto, una preziosa 
fonte di informazioni... 


Abbasso 
U i listati 


autobus, eccetera. 

Leggendo gli annunci economici 
per ciò che riguarda la ricerca del 
personale, è facile notare (a parte la 
“fame” di venditori per attività, co- 
munque. legate al commercio) la ri- 
chiesta di programmatori esperti in 
campi specifici, soprattutto gestione 
dati e contabilità; si avverte, anche, la 
richiesta di esperti in telematica e in 
trasmissione dati in generale. 

Se, quindi, avete l'opportunità di 
seguire un corso di informatica appli- 
cativo (rafàonien programmatori e si- 
mili) e se il campo è di vostro gradi- 
mento, preferitelo ad un corso per so- 
li programmatori (a meno che, ovvia- 
mente, non abbiate altra passione 
che la programmazione pura). 

Un ultimo avvertimento: per le 
scuole private (vale a dire a paga- 
mento) consultate studenti che ab- 
biano già seguito i corsi che anche 
voi intendete seguire: vi sono, infatti, 
scuole private di notevole serietà, 
altri casi, purtroppo, nascondono 
mostruosi bidoni. Intervistare i 
diplomati prima di iscriversi ad una 
scuola (privata o pubblica), risulta. 


Calogero Bonosio, di Enna, ritiene 
che la nostra pubblicazione rischia 
di stancare molti utenti di computer 
perchè, ormai, nessuno più digita li- 
stati da riviste, ma preferisce procu- 
rarsi i programi direttamente su na- 
stro o disco rintracciabili a prezzo, 
ormai, molto contenuto. 

Non tutti i listati che pubblichiamo 
devono, necessariamente, esser digi- 
tati ma. soprattutto, studiati per estra- 
polarne la parte che interessa. Que- 
sto vale anche per coloro che possie- 
dono una stampante e che potrebbe- 
ro provvedere a riversare su carta i 
programmi che acquistano su sup- 
porto magnetico (ma quelli in circo- 
lazione sono tutti listabili?). 

Molti lettori, inoltre, confessano 
che non digitano tutti i listati, ma che 
conservano gli arretrati della nostra 
rivista perchè un certo programma, 
in futuro, potrebbe tornare utile. 

Non dimentichiamo che la nostra 
pubblicazione non vuolè entrare in 
competizione con le riviste su suppo- 
porto magnetico nè, tantomeno, pre- 
tende di presenatare giochi più spet- 
tacolari di quelli pirateggiati, ci man- 
cherebbe altro! 

Noi ci rivolgiamo a coloro, e sono 
tanti, che desiderano imparare a pro- 
grammare. a prender confidenza con 
il computer e, credetemi, nulla è più 
valido a tale scopo che l’esame del la- 
voro svolto da altri. 

Va da sè che la qualità della carta u- 
sata, e la “veste” grafica, è da noi po- 
sta in secondo piano rispetto al con- 
tenuto della rivista stessa: sono con- 
vinto che ciò che conta non è la con- 
fezione nè il numero di “sedicesimi” 
in quadricromia. La carta patinata, 
semmai, può servire per nascondere 
contenuti non sempre utili o necessa- 
ri e giustificare un prezzo di coperti- 
na più elevato. 

Fai un esperimento: confrontando 
tra loro varie riviste di informatica, 
tra cui la nostra, prova a contare il 
numero (e la qualità) degli articoli 
che realmente ti hanno interessano 
al termine della lettura... 
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La guerra per gioco 


Una panoramica sul contenuto 
del secondo numero della cassetta 
Commodore 64 Club 



X uesto secondo numero contiene, ol- 
consueti videogame ed utility, un 
fantastico programma di simulazione 
bellica ispirato al famosissimo Risiko, il 
popolare Wargame da tavolo. 

Risicom 64 

Dopo aver caricato e mandato in esecu- 
zione il programma, dovrete digitare il 
numero dei giocatori, che varia da due a 
sci cd il vostro nome. 

Successivamente inizieranno i “com- 
battimenti" gestiti interamente dal com- 
puter che vi vedranno impegnati non solo 
in azioni strategiche e di ragionamento 
ma anche in veri e propri videogame. 


Certamente la peculiarità di questo gio- 
co risiede nel fatto che a momenti di fred- 
do calcolo e di studiala simulazione si al- 
ternano momenti di puro gioco in cui. 
Joystick alla mano, dovrete impegnarvi in 
scontri con il nemico. 

Alla cassetta è allegalo un manuale c- 
splicativo che ha lo scopo di elencare det- 
tagliatamente tutte le modalità di gioco e 
di attacco nonché tutte le divisioni territo- 
riali necessarie al funzionamento del 
gioco. 

Risicom (4 é senz'altro uno dei migliori 
prodotti software ORIGINALI mai pre- 
sentati sul mercato italiano e certamente 
soddisfarà appieno sia l'appassionato di 
Arcade-games sia chi. più "tradizioneli- 
sta”. ama le simulazioni a tavolino e pre- 
dilige i giochi di ragionamento. 
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Mission Twain 

Il secondo programma che vi presentia- 
mo è una stupenda avventura grafica ge- 
stita in Linguaggio Macchina che vi farà 
viaggiare in fantastici mondi lontani 
anni-luce dalla Terra. 

Il pallido sole del sistema Twain si alza 
lentamente all'orizzonte, liberando il lus- 
sureggiante mondo dall'oscura presenza 
delle ombre. 

Ancora nessuno è riuscito a capire il 
motivo della presenza della vita su questo 
pianeta decisamente inospitale, eppure la 
foresta vergine si stende in tutte le direzio- 
ni. come un'immenso mare verde che si a- 
pre al tuo passaggio per poi chiudersi die- 
tro di tc. 

Eppure il tuo assistente aveva avuto 
quella sensazione... di pericolo... o di pre- 
monizione? Non occorre scervellarsi; tu 
non sci in grado di pilotare l'astronave da 
solo ed i tuoi compagni sono spariti da or- 
mai tre giorni... è assolutamente necessa- 
rio ritrovarli prima che... prima che anche 
tu sparisca. 

Il gioco Mission Twain è un'avventura 
ambientata nel prossimo futuro; la terra è 
alle prese con i problemi del sovraffolla- 
mento. Contemporaneamente si sviluppa 
notevolmente la scienza spaziale, che 
permette all'uomo di aprire nuovi oriz- 
zonti nei più nascosti angoli della 
galassia. 

Il pianeta Twain si è rilevato un’ottima 
sorgente di materiale per quanto riguarda 
gli studi sulfambiente c sull'adattamento 
umano ar diversi sistemi stellari; inoltre è 
quello che mostra il maggior numero di 


forme di vita nella galassia, oltre ovvia- 
mente alla terra. Il pianeta Twain è però 
anche un incredibile investimento nel 
campo minerario c molti interessi sono in 
gioco... forse troppi. 

La relazione inviata dalla sonda auto- 
matica di Aldebaran pone però nuovi 
quesiti: forse il pianeta Twain è un luogo 
pericoloso ed inospitale; la tua spedizio- 
ne dovrà provarlo... sempre se riuscirai 
a tornare! 


Demoni 

In questo gioco dalle stupende qualità 
grafiche c sonore, dovrai impersonare il 
mago Gillot che, impegnato nella eterna 
lotta contro le forze del male, scenderà 
negli abissi oscuri, nel regno di Ter- 
rorland. 

Dopo anni di continui ed intensi studi, 
il mago Gillot si è reso conto che a nulla 
sarebbe servito cercare di combattere il 
nemico senza conoscerlo intcriormente; 
cosi un bel giorno il mago Gillot decise di 
partire per Tcrrorland con il suo assisten- 
te Italus. 

L'imprevisto però era dietro l'angolo; 
l'assistente Italus non fu insensibile alle 
lusinghe di Straplon. il re di Terrorland 
ed in una notte buia c malvagia Italus 
fuggi. 

Il mattino mostrava a Gillot il grigiore 
di una polenza oscura proveniente dal 
centro di Terrorland. al quale lui si era in- 
cautamente avvicinato. Solo allora si rese 
conto della scomparsa di Italus; il terrore 
lo assalì c quando si rese conto di essere 
circondato dalle forze del male capì di a- 
vere ben poche possibilità di salvezza. 

Cominciò cosi a correre verso la pace 
della sua casa ma la via era lunga c peri- 
colosa e Straplon gli aveva inviato contro 
tutto il suo malefico esercito. No... non sa- 
rebbe stato facile sfuggire ai Demoni... 
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Level shock 

In questo entusiasmante gioco dove la 
vostra abilità e prontezza di riflessi saran- 
no messi a dura prova, impersonerete un 
avventuriero cacciatore di tombe rimasto 
imprigionato nel palazzo imperiale nelle 
rovine di Uruk. 

L'antico architetto aveva evidentemen- 
te previsto una simile situazione e le trap- 
pole abbondavano dovunque: infernali 
marchingegni che muovono pesanti muri 
in tutte le direzioni. Riuscirai, utilizzando 
il tuo zainetto propulsore, a risalire i vari 
livelli della tomba ed a trovare l'uscita? 


Errori made in Italy. 

Capita abbastanza spesso che un pro- 
grammatore alle prime armi si veda co- 
stretto a sfogliare voluminosi manuali di 
istruzioni per comprendere il significato 
di quegli incomprensibili messaggi invia- 
ti dal computer in seguito a probabili er- 
rori di programmazione. 

Capita anche, forse un po’ meno spesso, 
che alcuni programmatori meno pazienti 
decidano di interrompere la loro attività a 
causa delle difficoltà della lingua. 

A questo punto entra in gioco la creati- 
vità dei nostri collaboratori ed ecco pron- 
ti... i messaggi di errore tradotti in italia- 
no, ad uso e consumo di tutti coloro che 
non si sono ancora arresi. Vediamo quin- 
di il fatidico "Syntax error" trasformato 
in un amichevole (c comprensibile!) “Er- 
rore di sintassi” un cattivo “Bad sub- 
script error" corretto in “Matrice non de- 
finita" e cosi via, per la gioia di tutti coloro 
che si sono appena avvicinati allo sconfi- 
nato mondo del computer. 

Ai confini della realtà. 

Ore 23.19. Si incendia il motore che è 
stato appena colpito da un fulmine. 

L'aereo perde quota e tu, giovane c bril- 
lante manager di successo, decidi di ab- 
bandonare l'aereo in modo da poterti 
salvare. 

Mentre il paracadute si apre scorgi so- 
pra di te l’aereo in fiamme che si allonta- 
na tra le nuvole basse c poi più nulla... 

Un terribile colpo di vento spezza una 
delle cinghie del paracadute e tu piombi 
pesantemente nelle gelide acque dell’o- 
ceano atlantico; senti le gambe irrigidirsi 
ma riesci ugualmente a liberarti del para- 
cadute; perdi i sensi... 

Il raggio di sole ti colpisce gli occhi e tu 
ti risvegli su una assolata spiaggia... deser- 


ta. sembra. Dopo il primo attimo di smar- 
rimento decidi di esplorare l'isola e cerca- 
re di capire dove ti potresti trovare. Pro- 
babilmente tu non capirai molto di navi- 
gazione e di mappe nautiche ma la pre- 
senza di un isola al centro dell’oceano a- 
tlaritico è alquanto sospetta e non sapresti 
davvero darle un nome... non razional- 
mente almeno. 

E’ inutile però restare sulla spiaggia ad 
aspettare; è necessario invece cominciare 
ad esplorare l’isola e cercare qualche pos- 
sibilità di salvezza. 


Nazioni europee. 

Il professore si siede dietro la cattedra e 
lentamente, quasi in modo solenne, apre 
il registro personale. 

Il dito scorre nervosamente tra i nomi 
mentre la tensione cresce a dismisura tra 


le file dei banchi; tutti gli occhi sono pun- 
tati verso le labbra del professore che alla 
fine si muovono e pronunciano il cogno- 
me... . 

L’interrogazione. L’atto che pone una 
solida e permanente barriera tra il profes- 
sore e l’alunno il punto d'incontro degli 
sforzi trimestrali e forse di due punti di 
vista. 

Ora il computer veste i panni di un pre- 
ciso ed attento interrogatore che pone al- 
l’alunno diverse domande di tipo geogra- 
fico riguardo le nazioni d’Europa; pre- 
sentandone anche una rappresentazio- 
ne grafica. 

Dopo una serie di trentatrè domande il 
computer formula un giudizio in base al- 
le risposte date cd assegna un voto allo 
studente. Buona fortuna... anzi, in bocca 
al lupo! 
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Gruppi 

di caratteri 


in un interno 


Tre routine per la gestione finalizzata di vari 
gruppi di caratteri alfanumerici (e non) 



17645 Simula Amiga menu 

(C ommodore 64) 

NeirAmigabasic è disponibile un comando comodis- 
simo che permette di gestire efficacemente la tecnica 
delle finestre selezionabili da mouse. 

Con il comando MENU ON, infatti, è possibile far 
apparire, sul primo rigo in alto, diverse parole-chiave, 
ognuna delle quali rappresenta altrettanti sub-menu. 

Posizionandosi con il mouse su uno di tali codici, e 
clickando. compare la finestra con i sub-menu tra i 
quali scegliere quello desiderato sovrapponendosi an- 
cora con il mouse. 

Dietro la notevole semplicità d’uso descritta si na- 
sconde, al contrario, una notevole complessità operati- 
va: il computer, infatti, deve selezionare il mouse come 
unità di ingresso dati, individuarne la posizione e crea- 
re la finestra corrispondente definita in precedenza. 
Naturalmente la parte del video "nascosta’’ dalla fine- 
stra continua a esistere e riappare non appena la fine- 
stra viene eliminata. 

La routine proposta non c tanto sofisticata, viene ge- 
stita da tastiera e non da joy (nò tantomeno da mouse) 
ma rappresenta un'idea da sviluppare per proprio 
conto. 

Esaminando il listato notiamo che questo, in accordo 
con i canoni dell'Enciclopedia, è suddiviso in due par- 
ti, la prima è un programma dimostrativo (righe 
140/190): la seconda è la subroutine vera e propria 
( 17600/17699). 

Prima di accedere alla subroutine 17600 è necessario 
assegnare ai quattro elementi del vettore stringa X0$() 
le quattro parole chiave che. qualunque sia la loro lun- 
ghezza. verranno ridefinite in seguito (riga 17600) con 
lunghezza fissa di 10 caratteri ciascuna, per questioni 
di simmetria. 


Al vettore bidimensionale Y()( ) spetta invece il 

compito di contenere un certo numero di clementi che 
rappresentano, gruppo per gruppo, le varie opzioni 
corrispondenti a ciascuna parola chiave. 

Nell'esempio dimostrativo sono stati assegnati quat- 
tro nomi di fantasia, ma modificando il valore della va- 
riabile X3 (riga 140) è possibile avere una certa libertà 
di scelta. Si tenga presente, però, che il video è formato 
da 25 righe e che le prime quattro sono "assorbite” dal la 
stessa subroutine per visualizzare efficacemente le pa- 
role chiave; si tenga anche presente che una qualsiasi 
matrice o vettore, utilizzato senza essere stato dappri- 
ma dimensionato (ed è proprio il caso dello standard a- 
dottato dalla nostra Enciclopedia) non può avere più di 
dieci elementi per ciascuna dimensione (numerati da 0 
a 10), pena un Bad Subscript Error. 

Dopo aver cancellato lo schermo, aver formattato le 
parole chiave e averle visualizzate in reverse, una linea 
tratteggiata separa la zona menu da quella sub-menu 
(righe 17600/17605). 

L'ultima istruzione di 17605 esamina il tasto premuto 
che, ovviamente, deve essere 1, 2. 3 oppure 4 e lo memo- 
rizza nella variabile X6. 

Il menu selezionato viene visualizzato in "normale "e 
il programma attende la conferma con la pressione del 
tasto Return (riga 176 15). In caso contrario si riparte 
dall'inizio. 

Premendo Return, quindi, viene visualizzato, in re- 
verse. l’intero sub-menu relativo alla parola chiave, tra 
cui scegliere premendo il tasto numerico corrisponden- 
te. Anche in questo caso viene visualizzato in “norma- 
le” il sub menu selezionato e con la pressione del tasto 
Return si “esce” definitivamente dalla subroutine 
stessa. 

Al ritorno, nel programma principale, la variabile X6 
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(oppure X5) conterrà il numero della parola-chiave, 
mentre X7 l’opzione corrispondente al sub-menu 
relativo. 

Tali valori, ovviamente, devono essere opportuna- 
mente gestiti dall'utente per “saltare” ad altre parti 
del programma. 

Si sottolinea che. nella riga 17600. gli spazi bianchi 
sono 10 mentre nella 17625 sono 20. L'adattabilità ad 
altri computer dipende unicamente dalla diversa for- 
mattazione del testo e dalle Pokc di schermo (righe 
1 7655 e 1 7660). 

100 REM DEMO SIMULATORE 

110 REM DI ISTRUZIONE MENU 

120 REM PER COMMODORE 64 

130 : 

140 X0SC 11 -"PRIMO” : X0SC2)-"SECO 
NDO” : X0S(3)-”TERZO" : X0$(4 )- 
"QUARTO” : X3-4 

150 Y0SC1 , 1)-”ALFA": Y0SC1 # 2)-"B 
ETÀ ” : Y0$ (1,3)- "GAMMA " : Y0$ C 1 
, 4)-"DELTA” 

160 Y0$(2 , 1 )-”UND" : Y0$(2 , 2)-”DU 
E” : Y0SC2, 3 D -"TRE" : Y0$C2, 4)- 
"QUATTRO” 

170 Y0SC3, 1 )-”ONE" : Y0SC3, 2)-"TUJ 
0": Y0SC3, 3)-”THREE”: Y0SC3.4 
)-”FQUR" 

180 GOSUB 17600: PRINTCHRSC 147)” 
HAI SCELTO: PR I NT "SUB-MENU 
: "X0SCX6) 

1S0 PR INT "OPZ I ONE : "Y0SCX5.X7) 

33S8 : 

3333 END 

17600 PRINTCHRSC 147)CHR3>( 10) ; : FOR 
Xl-1 TO 4 : PRINTLEFTSC X0$CX 
1 ) + ” ”, 10 ); 

17605 NEXT : PRINT : FOR Xl-0 TO 33: P 
RI NT”-”; :NEXT: GOSUB 17645 
17610 IF X4< 1 OR X4> 4 THEN 17600 
17615 X6-X4: GOSUB 17655 : X5-X4 : GOS 
UB 17645: IF X0SOCHRSC 13) T 
HEN 17600 

17620 PRINT"CHOMED”: PRINT: FOR X2- 
1 TO X3 

1 7625 PR I NT ” C RUS3 "LEFTS C Y0S C X5 , X2 

) + " ”, 20 ) 

: NEXT 

17630 GOSUB 17645: IF X4< 1 OR X4>X 
3 THEN 17600 

17635 X7-X4: GOSUB 17660: GOSUB 176 
45: IF X0$<>CHR$( 13) THEN 17 
600 


17640 RETURN 

17645 GET X0$:IF X0S- ” " THEN 1764 
5 

17650 X4-UALCX0S) : RETURN 
17655 FOR X2-1014+X4* 10 TO 1014+X 
4*10+3: POKE X2.PEEKCX2) AND 
127: NEXT: RETURN 

17660 FOR X2-1024+C 3+X4 )*40 TO 10 
24+C3+X4)*40+20: PDKE X2,PEE 
KCX2) AND 127: NEXT .RETURN 
17633 REM SIMULATORE ISTRUZIONE M 
ENU 

17700 Memorizza messaggi 

(Commodore 64) 

E' noto che per memorizzare un gruppo di caratteri 
alfanumerici è sufficiente ricorrere alle stringhe c al co- 
mando Input. Molti sono, però, gli inconvenienti che 
un tale sistema comporta; anzitutto le stringhe, nono- 
stante possano essere lunghe fino a 254 caratteri, han- 
no il limite “fisico'' di 77 caratteri se associato a un In- 
put. Provando, ad esempio, il semplice programmino... 

/ Input A$: Print 
2 Prini A$: Goto / 

...possiamo notare che il primo carattere digitabile, do- 
po la comparsa del punto di domanda tipico dell’Input, 
si trova distante due spazi dal bordo video sinistro; l'ul- 
timo carattere digitabile, invece, è quello che, al mo- 
mento di battere il tasto Return, si trova sul rigo succes- 
sivo a distanza di uno spazio dal boido destro. I n prati- 
ca, come potrete verificare voi stessi digitando la riga- 
programma di prima, una stringa non può essere più 
lunga di 77 caratteri. 

Se ciò non bastasse non è possibile digitare il caratte- 
re di virgola (,) c doppio punto (;) che vengono interpre- 
tati dal computer come “fine” di un dato battuto. 

La forma di una stringa digitata in fase di Input, infi- 
ne, non è la stessa in fase di Print (provate a digitare u- 
na frase completa con il programma di prima). 

Per memorizzare, e richiamare, senza problemi mes- 
saggi lunghi quanto si vuole, viene proposta la routine 
di queste pagine che memorizza, oppure richiama, un 
messaggio a seconda del contenuto della stringa X0S 
(Store oppure Recali); righe 17700/703). 

Nel primo caso lo schermo viene cancellato, le prime 
cinque righe (per un totale di 200 byte) visualizzate in 
reverse ed un messaggio invita a digitare il testo che 
può essere formato da uno qualunque dei caratteri as- 
segnati alla stringa XI $ (riga 17710). In seguito, un sem- 
plice ciclo di attesa pressione tasto verifica che il tasto 
battuto corrisponda, o meno, ad uno di quelli leciti, 
provvedendo ad ignorare tutti gli altri. 

La pressione del tasto Return provoca la richiesta del 
numero del banco (da 200 byte) che si intende riempire 
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con il messaggio digitalo. La zona di memoria utilizza- 
ta è quella compresa tra 49152 e 53247 (4K.) che. suddi- 
visa idealmente in “banchi" da 200 byte ciascuno, con- 
sente. appunto, la memorizzazione di ben 20 messaggi 
(numerati da 0 a 19). 

E* ovvio che in tale zona di memoria non devono es- 
ser presenti programmi in linguaggio macchina o altri 
oggetti informatici, che verrebbero irrimediabilmente 
distrutti. 

Con un procedimento analogo è possibile richiamare 
uno qualunque elei banchi precedentemente me- 
morizzati. 

Il lettore può aumentare o diminuire a piacere la di- 
mensione del banco tenendo presente che, per meno di 
80 caratteri, è più conveniente il ricorso alle stringhe e 
che per oltre 500caratteri conviene memorizzare l'inte- 
ra pagina video. 


100 REM DEMO MEMORIZZA E RICHIA 
MA MESSAGGI PER C/64 

110 : 

120 INPUT "MEMORIZZI MESSAGGIO 
CS/N)”; A$ 

130 IF A$- "S" THEN X0$-”STORE”: 
GOSUB 17700: GOTO 120 

133 INPUT "RICHIAMI MESSAGGIO C 
S/N ) " ; AS : I F ASO"S” THEN 12 
0 

140 INPUT "RICHIAMA BANCO C0/1S 
) ";X1 

150 IF X1<0 OR X>1S THEN 133 

160 X0$- "RECALL " : PR I NTCHRS C 1 47 ) 

: GOSUB 17700 

170 PR I NTCHRS (19): FOR 1-1 TO 6: 
PR I NT : NEXT : GOTO 120 
9398 : 

9999 END 

17700 IF X03>- "STORE " THEN 17708 
17703 IF X035- "RECALL " THEN 17770 
17705 X0$-"ERR": RETURN 
17708 X1S-” 1234567B90+-£QU)ERTYUI 
OP@*TASDFGH JKL : ;-ZXCUBNM, ./ 

! #$*& ’ C KDOTCLEFTDCUPD” 
17710 PRINTCHRSC 147) : FOR X0-1024 
TO 1024+199: POKE X0 , PEEKCX0 
2 OR 12B : NEXT : X0-LENC Xl$ ) 
17720 PRINT "C5 DOUNDDIGITA IL MES 
SAGGIOCHDME3"; 

17730 GET X0$ : I F X0$-”" THEN 1773 
0 

17732 X2“0 : FOR Xl-1 TO X0:IF MID$ 
CX1$,X1, 1)-X0S THEN X2-1:X1 
-X0 


17734 NEXT : IF X0S-CHRSC 13) THEN 1 
7740 

17735 IF X2-1 THEN PRINTX095 ; 

17736 GOTO 17730 

17740 PRINT"CHOME3C5 DDLJN3 ” 

17750 INPUT "N. BANCO DI MEMORIA C 
0/ 19 ) ” ; X0 : I F X0<0 OR X0>19 
THEN PRINT"CUP3” ; : GOTO 1775 
0 

17760 Xl-49152+X0*200: FOR X0-0 TO 
199: POKE X1+X0 , PEEKC 1024+X 
0) : NEXT: RETURN 

17770 FOR X0-0 TO 199: POKE 1024+X 
0, PEEKC49152+X1*200+X0) : NEX 
T: RETURN 

17790 REM XI CONTIENE N.BANCOCIN 
RECALL) 

17799 REM MEMORIZZA E RICHIAMA ME 
SSAGGI 


17800 Legge file da disco 

(Qualsiasi Commodore) 

Anche questo terzo sottoprogramma gestisce gruppi 
di caratteri, ma stavolta si tratta di file registrati su 
disco. 

Come è noto, i sistemi operativi più evoluti (tra cui 
quello dell'Amiga) hanno un comando specifico pere- 
sami nare i file presenti su disco. 

Per il C/64 non è disponibile un'utility di questo tipo 
ma, con una manciata di righe Basic, è possibile suppli- 
re alla carenza lamentata. 

Un file può essere di tipo sequenziale (s). programma 
(p), relativo (r) e user (u). Il più delle volte un file se- 
quenziaje è un file generato da un Word Processor e. 
come tale, formato da caratteri Ascii. stampabili senza 
ricorrere a "traduzioni" più o meno sofisticate. 

I file programma, invece, contengono byte i cui valori 
sono tra i più vari e non visualizzabili mediante un 
semplice Print ChrS(X); il motivo è presto detto: molti 
codici di controllo del cursore (Up, Down. Clear, Ho- 
me, Insert. Delete) e quelli relativi al colore o ai tasti 
funzione, hanno lo stesso valore di alcuni codici mac- 
china. oppure di puntatori, di Token e di Link presenti 
nei programmi Basic. Tentando di estrarre da un file 
programma i vari codici di cui c costituito, e cercando 
di stamparli con il semplice ricorso a ChrS si rischia, a 
parte la visualizzazione di caratteri privi di senso, di 
cambiare colore al cursore, di cancellare lo schermo e, 
nei casi più gravi, di premere Run/Stop e Restorc per 
recuperare il controllo del computer. 

La routine proposta, accessibile con un semplice Go- 
sub 1 7800, chiede il nomee il tipo del file che si intende 
esaminare. Subito dopo apre due canali: il primo, di er- 
rore, e il secondo di lettura vera e propria. 
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Nel caso in cui il file non esista, oppure esiste ma non 
è del tipo indicato, il programma si interrompe e un 
messaggio opportuno segnala il tipo di errore in- 
contrato. 

In caso contrario, invece, il file sequenziale viene let- 
to e visualizzato carattere per carattere, mentre degli al- 
tri tipi di file vengono visualizzati i vari codici (decima- 
li) da cui sono costituiti. 

Si avverte che con alcuni file sequenziali possono 
presentarsi egualmente gli inconvenienti prima segna- 
lati, specie se tali file rappresentano schermate grafiche 
in alta risoluzione o, comunque, non file di testo. 

Premendo un qualsiasi tasto durante la visualizza- 
zione. si ritorna al programma principale, dopo aver 
chiuso i canali aperti in precedenza. 

100 REfl D I NMOSTRAT I UD DI LETTUR 
A FILE SU DISCO 
110 GOSUB 17B00 
120 : 

SSSS END 

17800 INPUT "NOME FILE”;X0$:IF X0 

OR LENC X0S ) > 16 THEN X0 
$*”ERR” : RETURN 

17802 INPUT "TIPO FILE CS,P,U,R)” 
; Xl$ : I F Xl$«”” OR LENCX1S)> 
1 THEN X0$-”ERR”: RETURN 
17B05 GOSUB 17BB0 : OPEN 15, 8, 15: RE 
fi APRE CANALE DI ERRORE 
17B0G OPEN 8,8,8, X0$+” , ”+Xl$+ ” , R” 
: REM APRE FILE IN LETTURA 
17810 GOSUB 17870: IF X0>0 THEN 17 
000: REN UERIFICA SE FILE ES 
ISTE 

17020 GET #8,X0$:IF ST>0 THEN 170 
00 : REM UERIFICA SE IL FILE 
NON E * FINITO 

17825 GET X2$:IF X2$<>”” THEN 170 
00: REM ESAMINA EUENTUALE PR 
ESSI ONE DI TASTO 

17830 IF X1$-”S” THEN PRINTX0S;:G 
0T0 17020 .REM SE FILE SEQUE 
NZI ALE STAMPA STRINGA- 
17834 IF X0$<>”” THEN PRINTASCCX0 
$ ) ; : REM SE ALTRI FILE STAMP 
A CODICE ASCII 

17036 GOTO 17820: REM RICOMINCIA 
17870 INPUT#15 , X0 , X0S: IF X0-0 THE 
N X0S-”OK”: RETURN: REM LEGGE 
CANALE DI ERRORE 

17872 PR I NT "ERRORE ”X0 ; X0$ : X0S- ”ER 
R” 

170B0 CLOSE 0 : CLOSE 15: RETURN 
17BSS REM LEGGE FILE DA DISCO 


F lineo delle ultime 

routine pubblicate 

(Fra parentesi c riportato 
il numero di 

Commodore Computer Club 

su cui sono apparse) 

63913 rem 

17500 Mini Text ed. (42) 

63914 rem 

17400 Hard Copy L/R (42) 

63915 rem 

17300 Grandezze Anal (41) 

63916 rem 

17200 lntcq> a$ (41 ) 

63917 rem 

17 1(Ì0 equivalenze (40) 

63918 rem 

17000 percentuali (40) 

63919 rem 

16900 deck & dolce (39) 

63920 rem 

16800 sprite scanner (39) 

63921 rem 

16700 movimento sprite (39) 

63922 rem 

16600 accensione sprite (39) 

63923 rem 

16500 drum per c/64 (38) 

63924 rem 

16400 draw low/rcs (38) 

63925 rem 

16300 pnnt v/cont (38) 

63926 rem 

16200 plot low-res (37) 

63927 rem 

16100 integrali (37) 

63928 rem 

16000 equaz. mista (37) 

63929 rem 

15900 equaz. terzo gr. (37) 

63930 rem 

15800 derivata di funz. (37) 

63931 rem 

15700 scritte rotanti (37) 

63932 rem 

15600 convers. coordin. (36) 

63933 rem 

1 5500 legar, base quals. (36) 

63934 rem 

1 5400 conversione basi (36) 

63935 rem 

15300 semplif. frazioni (36) 

63936 rem 

15200 divis con N decim.(36) 

63937 rem 50100 directory (35) fi 

63938 rem 

15100 lampeggio righe (35) 

63939 rem 

1 5000 frammenta schermo (35) 

63940 rem 

14900 dcletc window (35) 

63941 rem 

14800 cambia stringhe (34) 

63942 rem 

14700 slitta stringhe (34) 

63943 rem 

14600 ruota stringhe- (34) 

63944 rem 

10500 input programmai (34) 

63945 rem 

14500 serali solo testo (33) 

63946 rem 

14400 sprite multiuso (33) [ 

63947 rem 

14300 zoom esa decimale (33) , 

63948 rem 

14200 video orologio (33) 

63949 rem 

1 1 100 funzioni inverse (32) 

63950 rem 

13200 centra messaggi (32) 

63951 rem 

14100 finestre di testo (32) 

63952 rem 

14000 gestione nome disk (32) 

63953 rem 

13900 load/savc pg video (31) 

63954 rem 

13800 scritte in ebem (31) 

63955 rem 

13700 bit imagc mps/803 (31) 

63956 rem 

13600 or esclusivo (31) 

63957 rem 

13500 comandi extra prg (31) 

63958 rem 

13400 linee low-res. (31) 

63959 rem 

13300 elabora stringhe (31) 

63960 rem 

13200 centratura frase (32) 

63961 rem 

13100 menu con joy (30) 

63962 rem 

13000 menu con cursore (30) 

63963 rem 

12900 frase lampeggiante (29) 

63964 rem 

12800 bordo technicolor (29) 

63965 rem 

12700 fili memoria ram (29) 1 

63966 rem 

12600 texl copy mps 803 (29) j 

63967 rem 

12500 colore pag.testo (29) ) 

63968 rem 

12400 pnnt using (31) 

63968 rem 

12400 pnnt using (29) 
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ULTIM’ORA 


Un modem Commodore 

omologato Sip 

Notizie fresche fresche dal mondo 
Commodore: un accordo 
tra la multinazionale 

americana e la nostrana società dei telefoni 


1 1 mondo della trasmissione dati ha 
da sempre affascinato i nostri lettori 
(e, ovviamente, anche noi). 

Da molto tempo, infatti, riceviamo 
richieste di chiarimenti su come ef- 
fettuare trasmissioni di dati serven- 
dosi di un “semplice" Commodore 
64. 

E tutte le volte, nostro malgrado, 
abbiamo cercato di rinviare la tratta- 
zione del l'argomento. Forse sapeva- 
mo qualcosa di ciò che si apparec- 
chiava in Commodore c aspettava- 
mo il momento proprizio per parlar- 
ne diffusamente? Chissà... 

Ma bando alle ciance e passiamo 
alla divulgazione della notizia uffi- 
ciale, appena giunta in Redazione: 

La Commodore Italiana, grazie ad 
un particolare accordo recentemente 
siglato con la Sip e la Seat, propone ai 
suoi fedeli utenti un modem (dal co- 
dice 64/99), omologato regolarmente 
dal Ministero delle Poste, da collega- 
re ad un C/64 per consentire l’invio e 
la ricezione di dati. 

In vendita saranno poste particola- 
ri confezioni destinate sia a coloro 
che non posseggono il popolare com- 
puter (e che potrebbero approfittare 
del l 'offerta per entrare nel mondo 
dcH'informatica), sia a coloro che. 
possedendo un C/64, desiderano en- 
trare in posesso di drive e del 
modem. 

Confezione “ Telematica /” 


• Geos (da usare, però, con il 1541) 

• Modem 64/99 
Prezzo L499.000 +IVA 

Confezione Telematica 2 

• Drive 1541 

• Mouse 

• Modem 64/99 
Prezzo L.499.000 4- IVA 

Tali confezioni dovrebbero esser 
poste in vendita agli inizi di giugno e 
forse in questo momento qualche ne- 
goziante lo ha già posto in vetrina e- 
videnziandolo degnamente. 
Naturalmente, ma solo dal prossi- 


mo settembre, sarà possibile procu- 
rarsi il solo, modem al prezzo di 
L .150000 al pubblico. 

Per il momento ci limitiamo a di- 
vulgare la notizia e a pubblicare l'im- 
magine del prototipo, così come è 
giunto in redazione. 

Ci ripromettiamo di parlarne pros- 
simamente, soprattutto per ciò che ri- 
guarda la possibilità di collegarsi 
gratuitamente con il Videotel e le Pa- 
gine Gialle Elettroniche. 

Sembra che la Commodore abbia 
molta fiducia nel progetto: si preve- 
de. nel solo mese di giugno, la vendi- 
ta di non meno di 40000 (quaranta- 
mila) confezioni! 



• Commodore 64 

• Registratore 1530 
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u Mina E' smis 



VELOCISSIMO 
BASIC 

per ( 64/128, MSX 
e Spectrum 

Corso completo in 
13 lezioni su 4 cas- 
sette interamente ge- 
stite dal computer. 

Il corso è diviso in 4 
parti, ciascuna delle 
quali contiene la 
versione specifica 
per il computer cui 
si riferisce 

lire 24.004) 


ASSEM- 

BLER 

TUTOR 

LJ n corso completo 
sull assembler del 
C/64 in 8 lezioni 
interamente gestite 
dal computer, più 
un programma MO- 
NITOR 

lire 12.000 

LOGO (4 

La più originale ver- 
sione del LOGO. 
Programma non 
protetto in basic fa- 
cilmente personaliz- 
zabile. 

lire 10.000 




24 ORE 
BASIC 

Il corso di basic piu 
veloce per C 64. C 1 6. 
Plus 4. 13 lezioni su 4 
cassette con una in- 
troduzione “parlata” 
Tutto il basic senza 
libri nè dispense. 

lire 24.000 


fj PASCAL 
PER C64 


Il volume introdut- 
tivo sul Pascal della 
collana i “libri Sy- 
stems" completata 
dalla cassetta con il 
programma compi- 
latore. 

Lire 19.500 (libro 
+ cassetta) 

MS-IXÌS 

& 

GW-BASIC 

emulator 

Il primo pro- 
gramma in grado di 
emulare sul C/64 il 
sistema operativo ed 
il più di muso basic 
dei PCRm 

lire 12.000 su cas- 
setta 

lire 25.000 su disco 


Si, inviatemi al più presto il seguente software, al prezzo contrassegnato, più lire 3.000 per spese di spedizione: 


□ VELOCISSIMO BASIC (24.000) 

□ ASSEMBLER TUTOR (12.000) 

□ MS-DOS & GW-BASIC EMULATOR 

□ versione cassetta (Lire 12.000) 

□ versione disco (Lire 25.000) 


□ 24 ORE BASIC (Lire 24.000) 

D PASCAL PER COMMODORE 64 (Libro + 

□ cassetta lire 19.500) 

□ LOGO 64 (Lire 10.000) 


Importo totale lire: 


Su tale importo mi praticherete lo sconto del 10% in quanto abbonato a D Commodore Computer Club ] Personal Computer D Com- 
puter □ VP Videoregistrare. Pertanto vi invio la somma soltanto di lire 


□ Desiderando ricevere le copie ordinate con la massima urgenza, accludo assegno bancario n.ro 

Banca per lire voi intestato. 

□ Contentandomi dei normali tempi postali ho inviato oggi stesso l'importo di lire.. a mezzo C/C postale N. 37952207 

intestato a Systems Editoriale - V.le Famagosta, 75 - 20142 Milano. 


Ritagliare e spedire in busta chiusa regolarmente affrancata a Systems Editoriale - V.le Famagosta, 75 - 20142 Milano. 


Nome 

via 

CAP.. 


••••••••■•■•••••••••••••••••••••••••••••«•■•a 


••■••••••••••••••« 

.... N.ro. 


•••••••••••••••••••• 

••••••••••••••••••••••••••••••••••••••••••••••••••••••■••a 


Città 


telefono 

■ ••«••••«•■••••• IMI! •••••■•MéMIHI •■••• a ••••• |.| 





Considerando che i numeri 1.2 e 7 sono esauriti, vogliate inviarmi i numeri arretrati . 
al prezzo di L. 5 000 cadauno per richieste tino a 4 numeri o di L 4 000 cadauno per 

richieste oltre 1 4 numen arretrati . e perciò per un totale di L Sono a conoscenza che 

i fasciai suddetti non saranno inviati in contrassegno e pertanto ho provveduto ogg» stesso 

a versare il canone di L a mezzo c/c postale n 37952207 intestato a 

Systems Editoriale * V le Famagosta 75 -20142 Milano 







GIUDIZIO SUI PROGRAMMI Ol QUESTO NUMERO 

Ho assegnato un voto da 0 a 10 ai programmi che indico di seguito 
A/ Voto 
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Per ordinare i fascicoli mancanti alla tua collezione di Commodore Computer Club utilizza l'apposita scheda in fondo alla rivista. 
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Viaggio 
nel Basic 


Siete sicuri di conoscere come lavora il 
Basic durante la dichiarazione delle 
variabili, la stesura di un programma, 
la cancellazione di linee? Due inserti 
appositamente dedicati all’esplorazione 
dei meandri del vostro computer 


di Alessandro de Si mone 
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In queste righe illustreremo in modo approfondito la 
gestione delle variabili nei calcolatori Commodore servendoci 
di un gruppo di brevi programmi semplici e di immediata 
comprensione utilizzabili sul Commodore 64 (e sul Vie 20) e, 
con minime modifiche, anche sul C/16 e Plus/4. 

Teniamo a precisare che gli argomenti affrontati possono 
sembrare molto difficili da comprendere. 

Se. però, leggerete queste pagine avendo al fianco il computer 
acceso e digitando, volta per volta, quanto suggerito, avrete la 
possibilità di incrementare le vostre conoscenze nel campo 
della programmazione. 


Organizzarsi 

Dovrebbe esser noto che la memoria di un computer è una 
successione di byte che, nel caso del C/64, sono in quantità di 
65536. Di questa gran massa di dati alcuni sono “fissi”, vale a 
dire che. essendo su Rom, hanno il proprio valore ben definito 
e non possono esser modificati in alcun modo; per analogia 
possiamo affermare che la Rom corrisponde alla parte stam- 
pata di un'agenda. 

La memoria Ram. al contrario, può essere scritta e cancellata 
a volontà dall'utente, o dallo stesso computer, e corrisponde, 
seguendo l'analogia precedente, alle pagine bianche della 
stessa agenda presa in considerazione in cui possiamo scri- 
vere, cancellare, modificare qualsiasi messaggio, a patto, 
ovviamente, che ci serviamo di una matita (ed. eventualmente, 
di una gomma). 

Come in un'agenda, a differenza di un qualsiasi block notes, 
ogni pagina rappresenta un giorno dell'anno e. comunque, un 
riferimento inconfondibile, così in un computer non tutte le 
locazioni hanno lo stesso valore e importanza. 

Sappiamo benissimo, ad esempio, che un certo numero, 
posto nella rubrica telefonica, rappresenta iJ prefisso di un 
numero di telefono perchè è trascritto in una “cella” specifica. 
Lo stesso numero, posto altrove, può avere un significato total- 
mente diverso. La confusione, nel caso di un calcolatore, è 
decisamente maggiore perchè i numeri che è possibile memo- 
rizzare sono “soltanto” 256. Oltre a verificare il valore di una 
cella, quindi, è indispensabile conoscere con precisione la sua 
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posizione all'interno della memoria e, molto spesso, anche il 
valore delle celle adiacenti. 

Se. ad esempio, digitate Print Chr$(65) otterrete la visualizza- 
zione di una “A" maiuscola e ne potete dedurre che il numero 
65 genera un carattere. Se. però, digitate Print Tab(65) sembra 
di non ottenere un bel niente perchè il computer si predispone 
a stampare qualcosa (che però non è indicato) a distanza di 65 
celle video. 

L'esempio appena riportato è volutamente banale, ma effi- 
cace per comprendere la differenza notevole di significato di 
uno stesso numero in circostanze diverse. 

Abbiamo detto che in una memoria Rom (Read Only 
Memory, vale a dire, appunto, memoria a sola lettura) non è 
possibile scrivere nulla, ma solo leggerne il contenuto. Le Rom 
contengono, quindi, programmi scritti e memorizzati perma- 
nentemente dal fabbricante (la Commodore, nel nostro caso) 
idonei a far funzionare correttamente il calcolatore su cui le 
stesse Rom sono montate. 

Una parte delle Rom consente, tra l'altro, di caricare, cancel- 
lare, scrivere, modificare programmi: sono in grado, insomma, 
di “capire" che stiamo digitando qualcosa sulla tastiera e di 
interpretare la nostra volontà quando battiamo List, Run, 
Save e in tutte le altre circostanze ben note. 

Naturalmente il computer, grazie ai programmi permanenti 
scritti su Rom. non memorizza a casaccio i tasti che battiamo, 
ma provvede a inserirli razionalmente in aree di memoria 
Ram ben precise e in accordo ad una rigida architettura. Il 
nome Ram. che vuol dire “Random Access Memory" (memo- 
ria ad accesso casuale), non vuol dire che i dati vengono 
memorizzati a casaccio, ma che è possibile memorizzarvi un 
dato in una parte qualunque della Ram. senza seguire un per- 
corso preciso. Ad esempio possiamo memorizzare un dato 
nella cella 9870 e. subito dopo, un dato nella 567 che non ha 
nulla a che fare con la precedente. 

Il computer (o meglio: le Rom del Basic) hanno un orienta- 
mento molto valido per individuare il punto in cui sono 
memorizzati i dati che interessano nel corso di un'elabora- 
zione. Anzitutto il computer “sa” che la zona Ram che può 
ospitare un programma Basic da noi scritto è circoscritta e ben 
delimitata; nel caso del C/64 i byte che possono ospitare un 
programma Basic sono quelli compresi tra 2049 e 40960 (per il 
C/16 il valore iniziale è 4096). Nella stessa area trovano posto 


Commodore Computer Club - III 



anche le variabili intere, in virgola mobile e stringa; e anche i 
vettori o le eventuali matrici. Con quale criterio il computer 
memorizza una riga Basic, una variabile, un vettore, una 
stringa? E. soprattutto, come fa a rintracciarli in seguito? 


I puntatori 


Prendiamo in considerazione l'abitazione di un nostro 
amico: per individuarla abbiamo bisogno di conoscente 
l'esatto indirizzo (via e numero civico), ma tali informazioni, 
da sole, non bastano perchè il piano dell'edificio è altrettanto 
importante per recarci nel suo alloggio. 

Allo stesso modo non sene a nulla sapere che abita al terzo 
piano se non conosciamo la via in cui abita. 

Quando ci rechiamo da lui, quindi, “puntiamo" alla via c, 
individuato il portone d'ingresso, “puntiamo" al piano sul 
quale è ubicato il suo appartamento. Come si può notare, 
abbiamo bisogno di due informazioni che si rivelano indi- 
spensabili per rintracciare il nostro amico (e non altri). A pen- 
sarci bene, l'indirizzo è costituito non da uno, ma da due 
puntatori: il nome della via e il suo numero civico; allo stesso 
modo il puntatore del piano lo possiamo considerare costi- 
tuito da due informazioni: il numero del piano e il numero 
della porta sullo stesso piano (la seconda da destra, la prima 
vicino all'ascensore, la terza in senso orario a partire dalle 
scale, eccetera). 

Anche un computer, per individuare correttamente una loca- 
zione (o un gruppo di informazioni) necessita di puntatori, 
vale a dire di numeri che, opportunamente interpretati, gli 
consentono di accedere alle informazioni desiderate. 

Gli indirizzi di inizio (2049) e di fine (40960) area destinata al 
Basic si possono ottenere da due puntatori che la individuano 
in qualsiasi momento. 

Provate a digitare, qualunque sia il vostro computer: 

Frinì Peek(43)+ Peek(44)*256 
Frinì Fcek(55) + Pci j k(56)*256 


Otterrete, nel caso di un C/64, i valori anzidetti. a patto che 
abbiate appena acceso il computer c che non abbiate combi- 
nato operazioni “strane . simili a quelle che verranno tra 
breve descritte... 
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Possiamo dedurre, quindi, che due celle adiacenti (43 e 44) 
contengono altrettanti valori che. combinati opportunamente, 
rappresentano l'indirizzo di una cella particolare. A tale cop- 
pia di byte diamo il nome di "Puntatore". 

Con il sistema descritto sarà possibile individuare una qual- 
siasi tra le 65536 celle disponibili con un C/64, e più in gene- 
rale, con un computer a 8 bit. 

Molto spesso al secondo puntatore (quello, per intenderci, 
con indirizzo più alto, esempio: 44) si assegna il nome di 
‘pagina" ed il computer, in questi casi, viene suddiviso in 256 
pagine (numerate da 0 a 255); al primo puntatore (quello con il 
numero più basso: 43) è, invece, riservato il compito di indivi- 
duare un byte all'interno della pagina indicata dal secondo 
puntatore. Naturalmente ogni pagina è costituita da 256 byte, 
numerati anch essi da 0 a 255. Ecco spiegato, quindi, il valore 
65536: non è altro che il prodotto di 256 (agine) x 256 
(locazioni). 

Elenchiamo, ora. i puntatori più importanti che si incon- 
trano lavorando in Basic: 

43/44: inizio de! Basic 

45/46: fine del Basic (e inizio variabili) 

47/48: fine delle variabili (e inizio dei vettori e matrici) 

49/50: fine dei vettori e delle variabili 

51/52: primo byte in cui verrà depositata la prossima stringa 

53/54 : utilità 

55/56: ultimo byte usato da! Basic 

Riferendosi al C/64 potremo notare che, non appena accen- 
diamo il computer, il contenuto dei puntatori, visualizzabile 
inserendo tra le parentesi di un banale Print Peek() la loca- 
zione desiderata, è il seguente: 

43/44: 1,8 <1+8*256 =2049) 

45/46: 3,8 (3+8*256 =205!) 

47/48: 3,8 
49/50 : 3,8 

51/52: 0.160 <0+160*256=40960) 

53/54: 0.0 
55/56: 0.160 


Si noti che l'inizio del programma Basic (che... non ce dal 
momento che abbiamo appena acceso il computer) è distante 
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tre byte dalla sua fine (2049 2051): l'area di inizio (45/46) e fine 
variabili e di inizio (47/48) e fine (49/50) vettori coincidono tra 
loro (2051). 

Tale suddivisione, in parte contraddittoria, verrà studiata 
ampiamente in seguito. Per ora interessa esaminare in detta- 
glio ciò che succede quando iniziamo a digitare un qualsiasi 
programma. Trascrivete, ad esempio, le due righe seguenti: 

100 REM ABC 
110 REM. ABC 

tacendo attenzione a lasciare un solo spazio tra le Rem e il 
gruppo di caratteri ABC e, soprattutto, a premere il tasto 
Return alla fine di ogni riga. 

Se avete seguito alla lettera quanto detto, dovreste ritrovarvi 
(dopo opportuni Print Peek..) una situazione del genere: 

43/44: 1.8 (1+8*256 =2049) 

45/46: 23.8 ( 23+8*256=2071 ) 

47/48: 23.8 
49/50: 23.8 

51/52: 0.160 (0+160*256=40960) 

53/54: 0.0 
55/56: 0.160 

Alcuni puntatori sono rimasti invariati (43/44, 51. ..56); gli 
altri, invece, sono cambiati proprio a causa della digitazione 
delle due righe Basic. Se i valori che riscontrate sono diversi, 
vuol dire che avete inserito più spazi oppure più righe o un 
numero diverso di caratteri alfanumerici dopo le Rem (oppure 
che non avete un C/64!). 

Digitate ora di seguito la seguente riga, in modo diretto: 
FOR 1=2049 TO 2070: PRINT PEEK(1):: NEXT 

...non trascurando di digitare il carattere di punto e virgola (;) 
dopo il Peek. Tale comando visualizzerà il contenuto (Peek) 
dei 21 byte numerati da 2049 a 2070. Se avete digitato senza 
errori, dovrebbe apparire: 

11. 8. 100. 0. 143. 32. 65. 66. 67.0 
21. 8. 110. 0. 143. 32. 65. 66. 67. 0 
0. 0 
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In effetti i valori compaiono tutti di seguito e la suddivisione 
in tre righe, che vedete in questa pagina, è riportata solo per 
motivi di chiarezza. 

Noterete, infatti, che i primi due gruppi di dieci valori sono 
quasi simili tra loro; è poi riportata una coppia di zeri. 

In particolare rileviamo che i primi due valori (11 e 8) “tra- 
dotti" con il solito sistema (11 + 8*256) danno come risultato il 
valore 2059; questo, a sua volta, “punta" alla locazione di 
memoria che contiene il valore 21. 

Se, infatti. 1 1 è il contenuto della locazione 2049, 8 di 2050, 
100 di 2051. si perviene a quanto asserito. 

I valori 21 e 8. seguendo la stessa “traduzione", indicano la 
cella 2069 che contiene uno zero; stavolta, però, la coppia di 
zeri (2069/2070) “puntano" alla locazione zero (0+0*256=0), e 
tale particolarità fa capire al Basic che il programma è 
finito. ' 

II sistema appena esaminato è formato da una successione di 
puntatori “in cascata" detti, più propriamente. “Link" 
(= legame). 

E\ questo, un sistema semplice ed efficace per “inseguire" le 
informazioni che possono risultare disseminate in qualsiasi 
modo alfinterno del computer; è una situazione simile a 
quella che si verifica in una caccia al tesoro, in cui ciascun 
luogo da rintracciare contiene un foglietto che, a sua volta, 
contiene le indicazioni idonee per rintracciare il successivo... e 
così via, fino al tesoro. 

Ma esaminiamo meglio il significato dei 21 byte visualizzati: 
subito dopo il byte 2049 e 2050 (i link di prossima linea sui 
quali ci siamo già soffermati) sono presenti due byte (2051 e 
2052) che contengono, rispettivamente, 100 e 0. Tale coppia di 
byte (successiva, cioè, ai due byte di Link) rappresenta la 
numerazione della linea Basic: 100+0*256=100. Con il 
numero 100, infatti, abbiamo numerato la prima riga del 
nostro microprogramma. Analogamente (vedi byte 2061/2062) 
la coppia di valori 110/0 indica la numerazione della seconda 
linea Basic. 

Il valore 143 rappresenta, nel codice Commodore, il 
comando REM; il codice 32 è lo spazio e i valori 65, 66. 67, 
rispettivamente, i caratteri “a", “b" e “c". 

Proviamo a modificare, prestando la massima attenzione, i 
contenuti di alcune locazioni. 

In 2053 è presente il codice 143. Provate a digitare... 
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Poke 2053,153 


...e. subito dopo, chiedete il listato: otterrete: 

100 PRINT ABC 
110 REM. ABC 

11 valore 1 53. intatti, è il codice Commodore di Print. Diverti- 
tevi a digitare altri valori (compresi tra 0 e 255) e. subito dopo, a 
richiedere il listato: in alcuni casi otterrete autentiche sorprese 
(scomparsa dei caratteri ABC. comparsa di segni semigrafici, 
istruzioni tipiche del Basic e così via). Alcune Poke hanno 
consentito, nel passato, di realizzare particolari tipi di 
protezioni. 

Provate, ora. ad alterare il contenuto della locazione 2051 
digitando, ad esempio... 

Poke 2051.91 

...e a chiedere il Isitato: 

91 REM ABC 
110 REM ABC 

Ciò dimostra che. in effetti, la locazione 2051 c preposta 
(insieme con la successiva, la 2052) a contenere la numera- 
zione della prima linea. 

Divertendovi ad alterare, sempre mediante Poke, le locazioni 
relative alla numerazione delle due righe, otterrete risultati 
stranissimi tra cui la visualizzazione di due righe in ordine 
decrescente anziché crescente. 

Naturalmente alcune modifiche possono portare a veri e 
propri inchiodamenti della macchina che deve, in casi come 
questo, essere spenta e riaccesa per ripristinare le con- 
dizioni iniziali. 

Nell'area destinata ad un programma Basic, insomma, è pre- 
sente un doppio sistema di puntatori: una prima coppia (Link) 
che consente di conoscere la locazione Ram in cui è allocato il 
successivo Link: e una seconda coppia relativa alla numera- 
zione Basic vera e propria. Ogni linea Basic termina con uno 
zero mentre un programma Basic è individuato da tre zeri 
posti in successione. Ma su questo argomento torneremo in 
dettaglio in seguito. 
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Per ora ci accontentiamo di affermare che l’interprete Basic 
del computer “sa" che nella locazione 2048 (puntata dalla cop- 
pia 43/44) è situato il primo dei due byte che contengono le 
informazioni necessarie per individuare l’intera area Basic, 
grazie alla “cascata” di puntatori posti in successione, finché 
non incontra due zeri di seguito. 


Esame dei puntatori 

Abbiamo concluso il paragrafo precedente affermando che i 
byte 43 e 44 "puntano” all’inizio del programma Basic (se c’è) 
mentre i byte 45 e 46 puntano alla sua fine. In effetti i byte 45 e 
46 puntano all'inizio delle variabili, ma. dato che queste sono 
allocate a partire dal byte successivo all’ultima locazione Ba- 
sic. offrono comunque una valida indicazione per individuare 
il termine di un programma. 

100 REM LISTATO N.l 
110 : 

120 REI“! STUDIO DEI PUNTATORI: 

130 REM QUANTITÀ’ DI MEMORIA OCCUPATA DAL 
140 REM BASIC E DA DIUERSE UARIABILI. 

150 REM 0PEN1 , 4 : CMD1 : REM PER STAMPARE I RISULTAT 
I 

160 A - 12 .- A$-””+”1234567BS0”: A^-123 
170 DIM A$ C 19 ) : FOR A-0 TO 19 : A$ C A )-AS : NEXT 
1B0 DIM AC 193 : FOR A-0 TO 19 : AC Al -A : NEXT 
1S0 DIM A^C 19) : FOR A-0 TO 19: A5JCA3-A: NEXT 
200 PRINTCHRSC 147 3 "INIZIO BASIC ”PEEKC43)+PEEK 
C44)*256 

210 PRINT’TINE BASIC ” PEEKC45)+FEEKC46)*256 
: PR I NT 

220 PRI NT "INIZIO UARIABILI CUEDI FINE BASIC)” 

230 PRI NT "FINE DELLE UAR , ” PEEKC47)+PEEKi'48)«2S6 
:PRINT 

240 PRINT"INI2I0 MATRICI CUEDI FINE UARIABILI ) ” 
250 PRINT”FINE MATRICI ” PEEXC49)+PEEKCS0)«256 
260 PRINT”ALLOCAZ . CPROSSIMA STRINGA) DA:" PEEKC5 
1)+PEEKC52)«256 

270 PRINT’TINE STRINGHE ” PEEKC53)+PEEKC54)»25B 
2B0 PRINT’TINE MEMORIA " PEEKCS5) + PEEKC56) *256 
290 PRINT’’RAM CEXTRA PRG . ) OCCUP.DA STRINGHE”; 

300 PRINTCPEEKC5s)+PEEKC 56 )"256)-CPEEKC53)+PEEKC 
54 ) *256 )-l : PR INT 

310 PRI NT ” 1 UARIABILE INTERA, 1 IN UIRG.MOB" 

320 PRINT"’ UARIABILE STRINGA DI 10 CARATTERI” 


Commodore Computer Club ■ IX 



330 PRINT-1 UETTORE DI 20 UALORI INTERI *’ ; 

340 PRINT"(2*20+7 ) ” : REM A. DE SIMONE 
350 PR I NT H 1 UETTORE DI 20 UALORI DEC IH."; 

360 PR1NT" C5*20+7)" 

370 PR I NT ** 1 UETTORE DI 20 STRINGHE C3-2CV7V; 

380 REfl PR I NT#1 : CLOSE1 : REFI COMANDO PER STAMPANTE 

Digitate il programma N.l e dategli il RUN: dovrebbe appa- 
rire quanto segue: 

inizio Basic 2049 
fine Basic 3094 

inizio variabili (vedi fine Basic) 
fine delle var. 3115 

inizio matrici (vedi fine variabili) 

fine matrici 3336 

allocaz.fprossima stringa) da: 40750 

fine stringhe 40760 

fine memoria 40960 

ram (extra prg.) occup.da stringhe 199 

1 variabile intera, 1 in virg.mob 
1 variabile stringa di 10 caratteri 
1 vettore di 20 valori interi (2*204- 7) 

1 vettore di 20 valori decim. (5*204-7) 

1 vettore di 20 stringhe (3*204-7) 

Esaminiamo ciò che è accaduto, non senza aver dato dappri- 
ma una definizione: 

Diremo che una variabile è “dichiarata" quando viene nomi- 
nata per la prima volta nel corso di un'elaborazione all’interno 
di un programma Basic. Ciò significa, che nel caso del micro- 
programma che segue,... 

100 a = 100: b= 3.456: a$= prova " 

...la prima variabile ad essere dichiarata è “A ”, la seconda “B" e 
la terza A$. Osserviamo, invece, il caso seguente: 

100 a- 100 
110 gosub 200 
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120 b=456: c$= "primo” 

130 .. . 

140.. . 

200 c=34.87: d$= "secondo" 

210 return 

Apparentemente l’ordine di dichiarazione delle variabili 
sembra essere: 

A. B. CS. C. D$ 

Seguendo, invece, la struttura LOGICA del programma, il 
computer incontra dapprima la variabile A. ma. subito dopo, 
grazie a Gosub 200. memorizza “C” e "DS”. Solo al “ritorno" 
dalla subroutine incontra “B” e “C$”. 

Quanto detto giustifica il motivo per cui. nei listati pubblica- 
ti, si è preferito comunicare immediatamente, nelle primissi- 
me righe, i nomi delle variabili che saranno adoperate nel cor- 
so dell'elaborazione dei singoli programmi. Il Basic, come in- 
fatti vedremo, alloca l'una in coda all’altra le variabili che a 
mano a mano incontra. 

Ma torniamo al programma 1. ed esaminiamolo nei 
dettagli: 

Riga 160 

Dichiarazioni variabili: si noti la variabile A$ realizzata ser- 
vendosi di una concatenazione. Ciò serve per “costringere" il 
Basic ad allocare i byte costituenti la stringa stessa in una zona 
estranea all'area del programma Basic, come vedremo più 
avanti. 

Righe 170/190 

Dimensionamento (e riempimento) di tre vettori di variabili 
intere, virgola mobile e stringhe lunghi ciascuno 20 elementi 
(non si dimentichi infatti la posizione “zero"). 

Righe 200/370 

Stampa dei risultati. La visualizzazione (riportata nella pre- 
cedente tabella) evidenzia in modo chiaro lo spazio occupato 
dalle variabili all’interno della memoria RAM. 

Si precisa che i risultati di figura si riferiscono al Commodo- 
re 64. 1 possessori di Vie 20. C/16e Plus/4 noteranno altri valo- 
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ri. Ciò è dovuto iil fatto che gli indirizzi di partenza dei due 
computer sono diversi. Gli stessi utenti del C/64 potranno no- 
tare valori differenti da quelli riportati in figura. Il motivo de- 
ve esser ricercato nel fatto che i valori indicati cambiano a se- 
conda della lunghezza del programma Basic. E* infatti suffi- 
ciente che. nella trascrizione del programma, un solo byte ven- 
ga digitato in più. o in meno, perchè la lunghezza cambi (caso 
dei REM non trascritti, spazi bianchi tra istruzioni, ccc.). 

Proprio a tal proposito il lettore può verificare le differenze e- 
sistenti digitando un maggior numero di righe, variabili, ma- 
nici. stringhe: in seguito a ciascuna modifica apportata, e dopo 
aver dato il Run. si potranno notare varie cose interessanti. Ne 
accenniamo alcune: 

• Aumentando , o diminuendo, il numero di righe Basic, o alterando 
la loro lunghezza, l'inizio del Basic non varia mai. 

• Apportando variazioni viene modificato, invece, l’indirizzo dell'ul- 
timo byte Basic. 

» 

• Se viene variato il puntatore di fine Basic (a causa della variazio- 
ne apportata al programma stesso), vengono modificati TUTTI gli 
altri puntatori; tale alterazione è esattamente eguale (in più o in me- 
no } alla variazione della lunghezza del programma. 

• Ogni variabile (intera, decimale, stringa) occupa SEMPRE sette 
byte. Si deduce che la differenza tra i valori dei puntatori di fine ed i- 
nizio variabili è sempre un multiplo di sette (oppure vale zero nel ca- 
so non siano state dichiarate variabili). 

• I puntatori di inizio e fine stringhe coincidono nel caso in cui le 
stringhe dichiarate siano allocate all interno del! area del program- 
ma Basic. Se invece, come nel listato presentato, esse rappresentano 
il risultato di una elaborazione di stringhe (LefiS, Right$ f somme, 
eccetera), la differenza tra i puntatori coinciderà con il numero dei 
caratteri costituenti le stringhe dichiarate, come avremo modo di 
studiare nel paragrafo relativo all'Overlay. 

• l vettori occupano uno spazio diverso a seconda della propria 
tipologia : 

Vettori di variabili intere 

Ogni vettore occupa il numero di byte seguenti: 

2 per il nome del vettore (o matrice pluridimensionale). 

2 per indicare il numero di byte occupati dal l'intero vettore. 

1 per indicare il numero delle dimensioni (max = 25f>). 
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2 per ciascuna dimensione: ognuna di tali coppie ha il compito 
di indicare il numero di valori occupati dalla dimensione 
interessata. 

Per ogni vettore dichiarato di variabili intere si ha pertanto 
un minimo di sette byte (con funzioni di ‘'indice”) necessari, al 
Basic, per ottenere informazioni sul vettore stesso. Oltre a 
quelli esaminati bisogna, ovviamente, aggiungere due byte per 
la memorizzazione di ciascun valore del vettore. Come è nolo 
con due byte è possibile memorizzare valori interi compresi 
tra -32768 e +32767. 

Vettori, o matrici, di valori decimali 

Il numero di byte di “indice” sono gli stessi di quelli delle ma- 
trici intere (minimo 7). Cambia il numero dei byte per ciascun 
valore decimale: cinque invece di due. 

Vettori stringhe 

Idem come sopra per i byte di indice. Il numero per ciascun 
elemento del vettore è fissato invece in tre: il primo indica il 
numero dei caratteri della stringa esaminata, gli altri due indi- 
viduano Tindirizzo del primo byte in cui è allocato il primo di 
essi. A questi vanno aggiunti, o meno (vedi dopo), i byte che co- 
stituiscono effettivamente la stringa stessa. 

Il lettore, per verificare quanto asserito, può modificare a pia- 
cimento le linee 160-190 (listato n.l ) inserendo, o cancellando, 
linee, dichiarando altre variabili, dimensionando in modo va- 
rio più matrici. Dopo aver apportato la variazione, digitando 
RUN sarà facile effettuare un controllo sui mutamenti avve- 
nuti, specialmente per ciò che riguarda gli indirizzi di inizio e 
fine Basic, variabili, matrici e stringhe. 

Nel caso particolare del programma N.l. le tre variabili di- 
chiarate (A. AS. A%) rendono, appunto, pari a 3*7 = 21 la zona 
RAM dedicata ad esse. 11 vettore A$( 19). d'altra parte, occupa 
7 + 3*20=67 byte, mentre A( 19) richiede 7+20*5 = 107 c A%( 19) 
7 + 20*2=47 locazioni di memoria per un totale di 221 byte. Ta- 
le valore, aggiunto all'indirizzo di inizio matrici, fornisce, ap- 
punto. il valore del puntatore di fine matrici. 
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Esame variazione puntatori 


100 REM LISTATO N.2 
110 : 

120 REM ALLOCAZIONE DELLE UARI ABILI NUMERICHE 
130 REM PRIMA FASE: ESAME PUNTATORI DEL BASIC E 
DELLE 

140 REM UARIABILI NEL CASO DI 6 DICHIARAZIONI 
1S0 : 

160 PR I NTCHRS C 14 )CHR$ C 147 ) ”PR I MA DI DICHIARAZION 
I ” : GOSUB 300 
170 AA*-100:BB*-32767 
100 PRINT: PRINT "DOPO DUE DICH.” 

130 GOSUB 3B0:PI-PI :PF-PF: I-I : J-J 
200 PRINT: PRINT*’DOPO 6 D I CH I ARAZ I ON I ” : GOSUB 300 
210 PR I NT : PR I NT "DOPO MODIFICA A 2 DELLE 6 DICHIA 
RAZ . ” 

220 AA^-lll : BB*— S46: GOSUB 3B0 
230 PI-PEEKC45)-*-PEEKC46)*256 
240 PF-PEEKC47)+PEEKC40)*256 
250 PRINT 

260 PR I NTCHRS C 10 ) "ELENCO UARIABILI:" 

270 : 

200 FOR I-PI TO PF-7 STEP 7: PRINTCHRSC 10) ; 

290 PR INTCHRSC PEEK CI)) CHRSC PEEK C I + 1 ) ) CHRS C 146 ) 
»» ( « . 

300 PRINT PEEKC I ) PEEKC I + 1 ) ” ) ” ; 

310 PRINT " ”CHR$C 10)1 

320 FOR J-I TO I+6:PR1NTPEEKCJ); : NEXTJ 
330 PRINT : NEXTI 

340 PR I NT "UALOR I DELLE UARIABILI : ” 

350 PR I NT : PR I NT "AA3& : "AA>É ; M PI: "PI;" 

PF : ”PF" I : " I ” J:"J 
360 END 

370 REM SUBROUT I NE DI ESAME PUNTATORI 
300 PRINTCHRSC 10) "INIZIO DEL BASIC” PEEK C 43 ) +PEE 
K C 44 ) *256 

390 PR INT”F I NE BA .-IN. UAR . " PEEKC45)+PEEKC46)*25 
6 

400 PR I NT "F I NE UARIABILI M PEEKC47)+PEEKC40)*25 
6 

410 PRINT"N . UARIABILI DICHIAR.-"; 

420 PRI NTCC PEEKC 47) +PEEKC40)*256)-C PEEKC45)+PEEK 
C46)*256))/7 

430 PRINT”N . BYTE PER UAR . D ICH I AR . - ” ; 

440 PRINT CPEEKC47)+PEEKC40)*256)-CPEEK(4S)+PEEKC 
46)*256) 

450 PRINT TABC 25) CHRSC 10) "PREMI UN TASTO " 
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460 IF PEEK(197)“64 THEN 460 
470 RETURN 
480 END 

Il secondo listato presentato ha lo scopo di dimostrare che i 
puntatori del Basic vengono alterati anche DURANTE l'elabo- 
razione dello stesso programma. Si noti infatti la subroutine 
380-470: questa, quando viene richiamata, visualizza su scher- 
mo i valori dei puntatori che sono attivi in quel particolare mo- 
mento dell’elaborazione. 

Si noti, inoltre, che per il calcolo si è evitato il ricorso a varia- 
bili, proprio per rendere più comprensibile il listato stesso. E- 
saminiamolo, anzi, in dettaglio: 

Riga 160 

Prima che una qualsiasi variabile venga dichiarata, si utiliz- 
za la subroutine 380. Il risultato dimostra che, almeno in que- 
sta prima fase, i puntatori di inizio e fine variabili coincidono 
fra loro, proprio perchè non ne sono state dichiarate. 

Riga 170 

Vengono dichiarate due sole variabili intere (AA% BB%) e il 
nuovo rinvio alla subrouitine 380 evidenzia l’occupazione di 
(7/2=) 14 byte nell’area destinata alle variabili. 

Riga 200 

Nuovo incremento dei puntatori di fine variabili (6 dichiara- 
te fino a questo momento). 

Riga 220 

Alterazione dei valori di due variabili precedentemente di- 
chiarate in riga 1 70. Si noti che i puntatori rimangono inaltera- 
ti dimostrando che. una volta che una variabile numerica vie- 
ne dichiarata, successive modifiche del suo contenuto non alte- 
rano il numero di byte destinati all’occupazione da parte delle 
variabili interessate. 

Righe 260-350 

Utilizzando le stesse variabili che individuano i puntatori, e 
ricorrendo ad un ciclo For...Next con Step di 7 (multiplo di oc- 
cupazione dei byte), vengono visualizzati i contenuti delle lo- 
cazioni di memoria riservate alle variabili. 

Ne approfittiamo per ricordare che il Chr$(14), nelle prime 
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righe del programma, serve per passare al set maiuscolo - mi- 
nuscolo in modo da render piu facilmente individuabili i no- 
mi delle variabili: in caso contrario, infatti, verrebbero eviden- 
ziati caratteri semigrafici di difficile interpretazione. 

La prima delle due lettere che compaiono (in reverse) rappre- 
sentano il nome della variabile. In parentesi sono raffigurati i 
loro valori del codice interno Commodore. L’ultimo dato (in 
reverse) del primo rigo di schermo rappresenta Tindirizzo del 
primo byte contenente il nome della variabile. 

Al rigo successivo vengono visualizzati i contenuti dei sette 
byte interessati dalla variabile (indicata nel rigo di schermo 
precedente). Si noti con attenzione il modo di allocare il nome 
delle variabili. Si noti inoltre il fatto che, nel caso di variabili 
intere o stringa, alcuni byte (gli ultimi) sono sempre posti al va- 
lore nullo. 

Anche in questo caso il lettore, data la versatilità del pro- 
gramma proposto, può divertirsi a modificare la riga 170 inse- 
rendo altre variabili intere, decimali, stringa dai nomi più biz- 
zarri: il segmento di programma 370/470 visualizzerà in cia- 
scun caso ciò che succede alLinterno del calcolatore quando 
vengono dichiarate le tre tipologie di variabili. 

Proviamo ora, avendo in memoria ancora il programma 2, a 
dichiarare le seguenti tre variabili dal nome piuttosto 
simile: 


/ 70 AA % = lOOiAA = 100:AA$= *700” 


Una volta dato il consueto RLJN, ci accorgiamo che. alla fine, 
nel primo caso il nome viene visualizzato con due lettere A 
maiuscole, nel secondo con due minuscole mentre nel terzo 
caso la prima è maiuscola c la seconda minuscola. Questo mo- 
do di alterare la prima, la seconda o entrambe le lettere delle 
variabili, consente all’interprete Basic di individuare senza e- 
quivoci le diverse variabili nel corso di una qualsiasi 
elaborazione. 


Il terzo listato 

100 REM LISTATO N.3 
110 : 

120 REM SECONDA FASE: MODIFICA BYTE 
130 RE n RELATIUI A UARIABILI INTERE 
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140 : 

150 AA^-100 : PR INTCHRSC 141 

160 PRI NTCHRSC 147 ) ”PUNTATOR I UAR I AB I LE ” : GOSUB 30 

0 

170 PRINT: PRINT: PRINT”1 ) MODIFICA AAV 
100 PRI NT "B ) MODIFICA PUNTA IO R I” : PRINT'**) RITORN 
0 AL MENU” 

130 GET A$:IF AS-”1" THEN GOSUB 040:GOTO 170 
000 IF A$-”B” THEN GOSUB 0B0 : GOTO 170 
010 GOTO 130 
000 : 

030 REM MODIFICA UALORE DI AA* 

040 PRINT: INPUT ”C*) AA5s- ” ; AAS : I F AAS- " THEN R 
ETURN 

050 AA-UALCAAS) : IF AA>30767 OR AAC-3B760 THEN 04 
0 

060 AA5S-AA: GOSUB 300 : GOTO 040 
070 REM MODIFICA BYTE UAR . AA* 

000 INPUT ”C*) BYTE”; AAS: AA-UALCAAS) 

030 IF AAS = ** THEN RETURN 

300 IF AA>I+6 OR AA< I THEN 000 
310 Al-AA 

300 INPUT "(*) UALORE ” ; AAS : AA=UAL C AAS ) 

330 IF AAS- ” * '* THEN 000 
340 IF AA> 055 OR AA<0 THEN 300 
350 POKE Al ,AA; GOSUB 300 : GOTO 000 
360 : 

370 REM UISUALIZZA2I0NE BYTE UAR. INTERA A A* 

300 I-PEEKC45 ) +PEEKC 46 ) *056 : Xl^PEEKC I ) : X0=PEEKC I 
+ 1 ) 

330 PR INTCHRSC 10)1 ; XI ; CHRSCXl ) 

400 PR INTCHRSC 10)1+1; XBjCHRSCXE) 

410 FOR J-I+0 TO I + 6 : PRINT ”C RUS1 ” J ” C RUOFF3 ”PE£K C 
J) : NEXT 

400 PRINT: PRINT”AA*-"AA*; ” BB*- ”BB* ; ” AB*-”A 

B*;” BA*-”BA* 

430 RETURN 
440 END 

Finora abbiamo assistito... passivamente ai modo in cui il 
calcolatore gestisce la memoria RAM nel caso debba definire 
variabili di qualunque tipo. Vediamo ora che succede se noi. 
intenzionalmente, proviamo ad alterare il loro contenuto. A 
tale scopo digitiamo il programma N.3. E' ovvio che il lettore, 
con la propria fantasia, può apportare tutte le sofisticazioni 
che ritiene opportune. 


Righe 160-210 

Menu di scelta. Viene chiesta una 


delie due scelte possibili: 
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1) Alterazione del valore di AA% (dichiarata in riga 150) 

2) Alterazione dei singoli byte costituenti la variabile. 

Nel caso si scelga l’opzione 1, verrà richiesto un nuovo valore 
da attribuire alla variabile AA% (righe 240/260). E’ ovvio che 
vengono rifiutati valori che escono dalfintervallo -32768 
+32767 (riga 260). Subito dopo il valore digitato viene deposi- 
tato in AA% e la subroutine 380/430 viene incaricata di visua- 
lizzare non solo il nome della prima variabile dichiarata (che, 
guarda caso, è proprio AA%), ma anche il contenuto dei singo- 
li byte relativi ad essa, oltre al loro indirizzo. 

Digitando il carattere di asterisco (*) si ritorna al menu prin- 
cipale. Se ora si sceglie l’opzione 2 (modifica puntatori) si avrà 
la possibilità di alterare il contenuto dei sette byte, uno alla 
volta. Modificandoli a caso, ma con criterio, si possono fare le 
seguenti deduzioni: 

a/ Alterando il contenuto degli ultimi tre byte, il valore di AA% 
non viene in alcun modo modificato. Ciò dimostra che il Ba- 
sic, nel caso di variabili intere, “guarda” esclusivamente il ter- 
zo, ed il quarto byte. 

b/ Alterando il contenuto di questi due byte si ottengono (riga 
420) valori diversi di AA% 

c/ Alterando i primi due byte (relativi cioè al nome della varia- 
bile) ci accorgiamo che il computer non riconosce più la prima 
variabile che incontra col nome AA%. ma col nome che le ab- 
biamo attribuito! Grazie alla riga 420 vengono visualizzati i 
valori relativi a quattro variabili intere (AA% AB% BA% BB%): 
servono per verificare l’efTettivo cambio di nome causato dalle 
Poke. Provate dunque (avendo davanti a voi la tabella del co- 
dice ASCII e addizionando 128 al valore del carattere tabella- 
to) a modificare in tal senso i due byte relativi al nome, dappri- 
ma trasformando AA% in BB% (cioè 193-193 in 194-194) e poi 
in altre lettere qualunque. 

100 REM LISTATO N.4 
110 : 

120 PEPI TER2A FASE : MODIFICA BYTE RELATIUI 
130 REM A UARIABILI IN UIRGOLA NOBILE 
140 : 

150 AA-100: PRINT CHRS C14) 

1S0 PR I NT "CCLEAR: PUNTATORI UAR I AB I LE" : GOSUB 30 
0 

170 PRINT”CDOUJN31) MODIFICA AA” 

180 PRINT”2) NODI FICA PUNTATORI": PRINT 

190 GET AS: IF A$-”l" THEN GOSUB 24G:GOTO 
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170 

200 I F AS-"2" THEN GDSIJB 200: GDTO 170 
210 GOTO 130 
220 : 

230 REM MODIFICA UALORE DI AA 

240 INPUT "C DOUJN3 AA = " ; AAS : IF AAS-”*" THEN RE 
TURN 

250 AA-UALCAAS) 

260 GOSUB 3B0: GOTO 240 

270 REM MODIFICA BYTE UAR . AA 

280 INPUT ”C DOLIN3BYTE ” ; AAS: X-UALC AAS) 

290 IF AAS-”*” THEN RETURN 
300 IF X >1+6 OR X <1 THEN 280 
310 Al-X 

320 INPUT "UALORE” ; AAS : X-UALC AAS) 

330 IF AAS - THEN 280 
340 IF X> 255 OR X<0 THEN 320 
350 POKE A 1 , X : GOSUB 380: GOTO 280 
360 : 

370 REM UISUAL . BYTE UAR.UIRGOLA MOBILE A A 
380 I -PEEKC45)+PEEKC46)*256: Xl-PEEKCI): X2-PEEK 
C 1 + 1) 

330 PRINT ”C RUS3 ” I ; XI CHRS CX1) 

400 PRINT "CRUS1" 1+1 X2 CHRS CX2) 

410 FOR J-I+2 TO 1+6: PRINT ”CRUS3” J " C RUOFF 
3 ” PEEKCJ): NEXT 

420 PR INT ”AA-”AA ; ” BB-”BB; ” AB" ”AB ; ” BA-”B 

A 

430 RETURN 
440 END 

Il listato N.4 modifica i byte relativi a variabili decimali ed è 
sostanzialmente identico a quello N.3. Le differenze consisto- 
no nel trattamento di valori numerici diversi. 

100 REM LISTATO N.5 
110 : 

120 REM QUARTA FASE: ESAME ALLOCAZIONE 
130 REM MATRICI UAR I AB I L I INTERE E NON 
140 PRINT CHRS C 147 ) 

150 X1-X1:X2"X2:X3-X3:X4-X4:X5-X5: I-I 
160 : 

170 DIM AA5;( 12 , 34 3 , CAC 12) , CX%C32) 

180 : 

130 PRINT CHRS ( 14 ) 

200 X1-PEEKC47) + PEEK C 48) *256 : X2-PEEK C 43 ) +PEEK 
C 50 ) + 256 

210 PRINT ”C RUS3ULT I MO BYTE OCCUPATOC RUOFF3 ” X2 
220 PR I NT " C RUS3 ”X1 PEEKCX1) CHRSC PEEKC XI ) ) ”CRUO 
FF3 NOME ” 
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230 PRINT ”CRU5D” Xl + 1 PEEKCX1+1) CHRSCPEEKCX1+1 
)) "C RU0FF3 UETTORE” 

240 PRINT ”[ RUS3 ” Xl+2 PEEK C Xl+2) "CRUOFF: BYTE 

250 PRINT "CRUSD” Xl+3 PEEKCX1+33 M CRUOFF: *256 
OCCUPATI 

260 X4-PEEKCXl+2)+PEEKCXl+3)*256:PRINTX4 
270 X5-X1+PEEKCX1 +2)+PEEK(Xl+3)*256 
280 PRINT "(OCCUPAZIONE FINO A” X5-1 
290 PRINT "CRUS3” Xl+4 "CRUOFFD” PEEK C XI +4 3 ” Din 
ENSIONI ; 

300 X3-X1+4: PRINT "rRUSD” PEEKCX33 
310 FOR 1-1 TO PEEK C X3 3*2 : PRINT”CRUS:] "X3+I + 1 
;PEEKCX3+I3:NEXT 
320 IF X2-X1 - X4 THEN 370 
330 X1-X5: REH A. DE SlflONE DIDATTICA ' S‘i 
340 PRINT ”C RUSD PREH I UN TASTO” 

350 IF PEEKC 1971*64 THEN 350 
360 GOTO 220 
370 LIST 170 

Il listato N.5, che non viene descritto in maniera approfondi- 
ta. esamina l'allocazione dei vettori e segue le regole prima de- 
scritte. Il lettore può verificarlo alterando la riga 170 inserendo 
più vettori o dimensionandoli diversamente. L'automatismo 
del programma consente di esaminare, byte dopo byte, cia- 
scun vaìore dichiarato. Diremo soltanto che, anche in questo 
caso, i primi vettori che si incontrano sono proprio quelli di- 
chiarati seguendo l'ordine “logico" del programma. 


100 REn L I STATO N.6 
110 : 

120 REH STUDIO ALLOCAZIONE STRINGHE 
130 : 

140 AAS - "STRINGA” 

150 Xl-Xl: X2-X2: I - 1 : PRINT "CCLEAR3 ” 

160 XI - PEEKC453+PEEKC463*256 
170 X2 - PEEK ( 47 3 +PEEK (483*256 

180 PRINT XI ” C RUSD ” CHRSC PEEKC XI 3 3 ”C RUOFF3 NÓH 
E” 

190 PRINT Xl + 1 ”C RUS3 ”CHR$ C PEEK C XI + 1 3 3 "CRUOFFD 
STRINGA” 

200 PRINT XI +2 ”LUNG . STRINGA -CRUSD” PEEKCX1+23 
210 PRINT Xl + 3 ”LA. INDIR. STR INGA-CRUSD ” PEEKCX1+ 
33 

220 PRINT Xl+4 ”HA . INDIR .STRINGA-C RU5D ” PEEKCX1+ 
4) 
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230 PRINT M CD0UJN3CRU53C” PEEKCX1+3:» " C LEFT 3 +” PE 
EKCX1+4) ” C LEFT 3 * 256 - " ; 

240 XB-PEEKCXl+3)+PEEKCXl+4 3*256: PR I NTX2 ” C LEFT3 3 
C DOUND ” 

250 POR 1-0 IO PEEKC Xl + 2 3-1 

260 PRINT ”[ RUS3 "X2+ I " C RUOFF3 ” CHRSC PEEK C X2 + 1 ) 3 : 
NEXT 

270 LIST 140 

In quest’ultimo listato (N.6) viene esaminato il luogo in cui i 
caratteri delle singole stringhe dichiarate vengono depositati. 
Il lettore può provare ad alterare il contenuto della variabile 
AAS (riga 140) oppure a modificarlo ricorrendo a concatena- 
zioni di più stringhe. Uno studio particolareggiato sull'alloca- 
zione dei vettori stringa non viene indicato dato che. a questo 
punto, il lettore, seguendo la falsariga dei programmi pubbli- 
cati in queste pagine, può farlo da solo. 

Un breve riepilogo 

• Nel C/64 la prima locazione di memoria a disposizione è la 
2049; nel seguito dell'inserto verrà indicata con LI (Lo- 
cazione Inizio). 

• L’ultima locazione occupata da un programma Basic varia, 
come è intuitivo, a seconda della lunghezza del programma 
stesso, e verrà indicata con LF (Locazione Fine). 

• Il cosiddetto “indirizzo" di partenza del programma Basic 
viene calcolato esaminando il contenuto di due locazioni di 
memoria (puntatori): la 43 e la 44. 

• Per conoscere, dunque, l'indirizzo di partenza del program- 
ma presente in memoria, sarà sufficiente eseguire il calcolo: 

U= PEEK(43) + PEEK(44)*256 

In genere il risultato porterà ai valori prima visti (2049 nel 
C/64). 

• Altre due locazioni (la 45 e la 46) contengono, in “codice", 
Lindirizzo dell'ultima locazione interessata dal programma 
Basic presente in memoria in quel momento: 

LF = PEEK(45) + PEEK(46)*256 

LF. come già detto, cambia a seconda della lunghezza del 
programma presente. 
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• Non appena si accende l'apparecchio LI coincide con LF. 

• Col termine “Puntatore" si intende il valore numerico della 
locazione interessata in un'operazione. Ad esempio le locazio- 
ni 43 e 44 “puntano" all'inizio del programma Basic mentre le 
45 e 46 puntano alla sua fine. 


L’esigenza dell’overlay 

A volte capita, anche se è molto raro, che alcuni programmi 
non possono essere ospitati in un computer perchè sono più 
lunghi della memoria disponibile. Se infatti si cerca di digitarli 
una linea alla volta, queste vengono accettate fino a che è pos- 
sibile: tentando di proseguire si ottiene nulFaltro che un mes- 
saggio di “Out of memory error" che impedisce il prosegui- 
mento della digitazione. 

Analogamente programmi anche molto brevi, e di conse- 
guenza caricabili o digitabili senza difficoltà alcuna, conten- 
gono alcune istruzioni del tipo DIM che, per essere eseguite, ri- 
chiedono una certa quantità di memoria. 

Sembrerebbe che, nei casi appena visti, sia impossibile uti- 
lizzare i programmi stessi avendo a disposizione una quantità 
modesta di RAM. 

Molto spesso, però, un certo numero di linee di programma 
vengono usate per “inizializzare" il programma stesso e non 
occorrono più nel resto dell'elaborazione. Si può, allora, cari- 
care tale parte di programma, farla girare, ed in seguito carica- 
re ed utilizzare la seconda parte. 

Se però si agisce come è stato descritto, al momento di impar- 
tire il secondo RUN (in seguito al caricamento della seconda 
parte), si azzerano tutti i valori delle variabili inizializzate 
precedentemente. 

Per non perdere il contenuto delle variabili, la Commodore 
specifica che se si inserisce. aH'intemo di un listato, una riga 
del tipo... 

XXX Load "seconda parte". 8 

...il programma con tale nome viene caricato e “lanciato" sen- 
za alterare in nessun modo le variabili elaborate dalla prima 
parte del programma stesso. Possiamo iniziare i nostri esperi- 
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menti digitando i seguenti due programmi che differiscono tra 
loro in minima parte: 

100 print” questo è" 

110 prmt”il programma ” 

120 print" alfa" 

130 geta$:ifa$= ""thenl30 
140 ifa$= "b'thenlòO 
150 print.gotolOO 
160 load"beta",8 
170 print 2*3-67 
180 print "frase" 

Il listato qui sopra riportato deve essere memorizzato su di- 
sco con il nome “alfa". Dopo averlo registrato, sostituite (righe 
120 e 160) il nome “Alfa” con “Beta”, e viceversa, e registratelo 
nuovamente con il nome “beta”: 


100 print”questo è" 

110 print”il programma ” 

120 print "beta" 

130 geta$:ifa$=”"thenl30 
140 ifa$= "a 'thenlóO 
150 prinf.gotolOO 
160 load"alfa",8 
170 print 2*3-67 
180 print “frase" 

Si noti che la lunghezza dei due programmi è rigorosamente 
identica; ve ne potete accorgere richiedendo Print Fre(O) che 
deve fornire due valori assolutamente eguali. 

Se. ora. fate girare uno qualsiasi dei due programmi, noterete 
due cose molto importanti: 

• premendo un tasto qualsiasi, apparirà il messaggio che indi- 
ca quale dei due programmi è presente in memoria; premendo 
“A” (oppure “B”) verrà invece caricato l'altro listato e imme- 
diatamente fatto partire. 

•le istruzioni presenti nelle righe 170 e 180 (successive, in altre 
parole, alla riga contenente Load) non vengono mai eseguite: 
non appena un programma è caricato, questo parte dalla SUA 
prima riga. 
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A parte questo, non si verificano inconvenienti di sorta pro- 
prio perchè i due listati, volutamente banali, occupano la stes- 
sa area di memoria. Provate, però, ad effettuare il seguente 
esperimento: 

• spegnete e accendete il computer 

• digitate il seguente listato: 

100 rem differenze 
110 : 

120 print:print"l - eseguo differenze " 

130 print'2 - carico somme " 

140 geta$:ifa$= ”"thenl40 
150 ifa$ = "1 "thengosublHO 
160 ifa$="2"then240 
1 70 print:gotol20 
180 print:print"(0= ritorna)'' 

190 input"minuendo";x 
200 ifx=Othenprint:return 
210 input "sottraendo ";); 

220 print" 'differenza — ”x-y 
230 print.gotolSO 
240 Ioad"somme'\8 

• registratelo con il nome “Differenze". 

• cancellatelo, digitate il seguente e registratelo con il nome 
"somme": 

100 rem somme 
110 : 

120 print.print ' l - eseguo somme " 

130 print‘2 - carico differenze' 

140 geta$:ifa$= " "thenl40 
150 ifa$ = "1 ’thengosub 1 80 
160 ifa$- "2"then240 
170 print:gotol20 
180 print:print "(0— ritorna)" 

190 input 'primo addendo ;x 
200 ijx = Othenprint.retum 
210 input secoli. addendo ';y 
220 print "somma = ’Iv+v 
230 print:gotol80 
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240 load”differenze 8 

250 remquesto programma, come si può notare, è più lungo del 
listato 

260 remchiamato “ differenze " a causa, se non altro, di queste 
righe rem 

• caricate il programma “differenze’ c date il Run 

• late in modo che, premendo il tasto "2", venga caricato il pro- 
gramma "somme”. 

• premete il tasto Run/Stop e chiedete il List... Sorpresa! Che fi- 
ne hanno fatto le altre righe Rem e che cosa rappresenta quella 

riga "strana" prima della fine? 

Ma le sorprese non sono finite... Provate a digitare un 

semplice: 

300 rem 

...lo schermo si sconvolge c non è possibile recuperare il pro- 
gramma nemmeno con i tasti Run/Stop e Restore. E necessa- 
rio spegnere e riaccendere il computer. 

Il richiamo di altri programmi, durante l'elaborazione di un 
programma, è possibile ma è indispensabile che il programma 
richiamato sia più breve (o al massimo eguale) di quello che lo 
"chiama"; vedremo tra breve il perche. 

Allo scopo di capire in quali casi la procedura può essere ap- 
plicata e in quali, al contrario, può dar luogo ad inconvenienti 
di vario tipo, consigliamo di seguire alla lettera le fasi qui di se- 
guito indicate. 

Al termine della lettura sarete sorpresi della semplicità con 
cui è possibile aumentare le potenzialità di un personal com- 
puter Commodore. 


Primo esperimento 

Fase 1 ) Accendete il computer oppure, se è acceso, spegnetelo 
e riaccendetelo in modo da esser sicuri della sua corretta 
inizializzazione. 

100 rem prova n.l/a 
110 : 

120 print chr$( 18)" inizio prova l/a " 

130 a=l:b=2:c=3:d-4 
140 e— 1.2: f-2.3 
150 g= 3.4: h=5.6 
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160 print a;b;c;d ; 

1 70 print e;f;g;h 

180 print chr$(18) fine prova l/a " 
190: 

200 rem queste tre righe 
210 rem servono solo per 
220 rem allungare il brodo 
230 : 

240 load prova n.l/b" '.8 


Fase 2) Digitale il programma n.7 (dal nome “Prova N.l/a'’) 
così come è pubblicato, tranne la riga 240. Controllate che fun- 
zioni correttamente, digitate la riga 240 e registratelo su di un 
disco oppure su di un nastro (che numerate con 1). E' ovvio che 
la sintassi riportata è valida per chi utilizza l'unità a dischi. 
Chi si serve del registratore a cassette trascriverà sem- 
plicemente: 

240 Load "Prova n.l/b" 


Tale avvenenza (eliminazione di “,8") vale per tutti i brevi li- 
stati presentati nel caso si desideri ricorrere al registratore. 

Fase 3) Spegnete e riaccendete il computer. Digitate il pro- 
gramma n.8. provatelo (ottenendo una serie di zeri), e registra- 
telo col nome “Prova n.l/b" nel modo consueto sullo stesso di- 
sco oppure su un altro nastro (N.2): Utilizzando due nastri si 
semplificheranno le varie operazioni che stiamo per de- 
scrivere. 


100 rem prova n.l/b 
110 print 

120 print inizio prova 1/b"" 

130 print a;b;c;d; 

140 print e;f:g;h 

150 print ’ fine prova 1/b " 

Fase 4) Caricate, da nastro o disco, il programma “Prova n. l/a" 
e digitate RUN. Ciò che accade è piuttosto semplice: Dappri- 
ma verrà elaborato il programma presente in memoria; in se- 
guito (riga 240) verrà caricato il listato “Prova n.l/b". La suc- 
cessiva visualizzazione delle stesse variabili di prima dimostra 
che, nonostante sia stato caricato un nuovo programma, le va- 
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riabili dichiarate precedentemente non vengono in alcun mo- 
do alterate. Se infatti, alTapparizione del consueto Ready chie- 
diamo il listato, appare nulFaltro che quello n.8, vale a dire 
quello caricato e lanciato grazie alla riga 240. Sembrerebbe 
che la Commodore abbia proprio ragione. Ma... è davvero tut- 
to in ordine? 

Fase 5) A questo punto, (vale a dire avendo in memoria il pro- 
gramma "Prova n.l/b” caricato dal programma "Prova 
n.l/a”). aggiungiamo una linea qualunque come la: 

160 rem Commodore comput.club 

Se ora chiediamo il listato, esso apparirà più lungo di una so- 
la riga e comunque più breve di quello n.7. 

Fase 6) Registriamo il programma così formato, con lo stesso 
nome di prima in modo che possa esser richiamato nuova- 
mente dal programma "Prova N.l/a” 

11 modo di effettuare questa operazione dovrebbe esser noto 
ma lo riassumiamo brevemente: 

Open 1 5,8. 15."S: Prova Nl/a':closel 
Save'Prova n.l/b”, 8 

nel caso si possegga un drive 1541. e: 

Save Prova n.l/b ” 

utilizzando il nastro 2 (vale a dire cancellando il precedente 
programma ivi registrato) nel caso si usi il registratore. 

Fase 7) Spegnete, riaccendete e caricate da nastro o disco il 
"vecchio” programma (Prova n.l/a). 

Impartite il RUN. Le istruzioni del primo programma, come 
è facile verificare, vengono correttamente eseguite. Non appe- 
na. però, viene caricato e lanciato il secondo programma, ci ac- 
corgiamo che il risultato è diverso da quello visto nella fase 4. 
Ciò è accaduto, come vedremo tra breve, perchè il secondo 
programma è più lungo del primo e provoca gli stessi inconve- 
nienti dei due programmi "Somme” e "Differenze”. 

Come è possibile che ciò sia avvenuto? Chiediamo il listato 
(List): essò è proprio identico a quello che ci aspettiamo con in 
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più la sola riga aggiunta nella fase 5: è comunque ben più bre- 
ve del primo! 

Ebbene il secondo programma sembra più breve del primo 
ma risulta effettivamente più lungo. Vediamo di spiegarcene 
il perchè. 

Torniamo ad esaminare la fase 4 e confrontiamola con 
quanto segue: quando il programma "Prova n.l/a ”. giunto alla 
riga 240. carica il programma "Prova n.l/b* . questo viene allo- 
cato a partire da LI. 1 puntatori di LF rimangono però inaltera- 
ti . Ciò è dovuto al fatto che le variabili precedentemente di- 
chiarate iniziano a partire da LF. 

Se un programma, ad un certo punto di un'elaborazione, 
"chiama" un altro programma, questo, dopo il caricamento, 
viene considerato lungo quanto il precedente anche se è com- 
posto da una sola riga! Pertanto l'interprete Basic "vede", dopo 
il caricamento di un programma, un listato che termina in LF 
e se, a questo punto, aggiungiamo una qualsiasi riga, questa 
viene allocata come di consueto, ed i puntatori di fine Basic, di 
conseguenza, alterati come se fosse stata aggiunta ad un pro- 
gramma più lungo. 

Quanto descritto è proprio Terrore che (intenzionalmente) vi 
abbiamo fatto commettere aggiungendo la riga 160 nella fase 
5. Questa e stata infatti aggiunta dopo che il programma "lun- 
go" era stato caricato automaticamente da "Prova n.l/a". Ciò 
dimostra che. effettivamente, nel caso di ricorso a tecniche di 
overlay, è indispensabile che il primo programma da caricare 
in memoria sia il più lungo di quello (o quelli) che in segito sa- 
ranno richiamati in cascata e, soprattutto, che non vengano 
modificati i programmi durante tali delicatissime fasi. 

La spiegazione delTinconveniente è piuttosto semplice da 
comprendere: dopo l'arca Basic inizia Parca delle variabili. Se 
"invadiamo" una zona di quest'ultima con un programma, la 
"coda” di questo ne cancella alcune ed esattamente quelle che 
per prime erano state dichiarate nel corso dell'elaborazione 
del primo programma. 

Verifica del primo esperimento 

1) Per verificare quanto è stato affermato, digitare il program- 
ma "Prova n.2/a" privo della linea 280: dopo aver verificato 
che funziona correttamente, digitare la riga 280 e registrarlo 
col nome "Prova n.2/a". 
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100 rem prova n.2/a 
110 : 

120 print " inìzio prova 2/a '' 

130 a = l:b=2:c= 3:d = 4 
140 e= 1.2: f =2.3 
150 g= 3.4: h =5.6 
160 print a;b;c;d ; 

1 70 print e;f;g;h 

180 print " inizio memoria = 

190 print peek(43)+peek(44)*256 
200 print "fine memoria = 

210 print peek(45)+peek(46)*256 
220 print "fine prova n.2/a " 

230 : 

240 rem queste tre righe 
250 rem servono solo per 
260 rem allungare il listato 
270 : 

280 load "prova n.2/b'\8 

2) per sicurezza spegnete, riaccendete e digitate il programma 
“Prova n.2/b'\ 

100 rem prova n.2/b 
110: 

120 print inizio prova 2/b" 

130 print a;b:c;d; 

140 print e;f;g;h 

150 print peek(43)+peek(44)*256 
160 print peek( 45 ) + peek ( 46 fi 25 6 
170 print "fine prova 2/b" 

Una volta controllatone il corretto funzionamento, trascri- 
viamo su di un foglio di carta i valori forniti dalle righe 150 e 
160. Registratelo dunque col nome 'Prova n.2/b*' in modo che 
in seguito possa esser richiamato da programma. 

3) Carichiamo ““Prova n.2/a" e ““lanciamolo". Ai termine dell'e- 
laborazione (dopo cioè che viene caricato c lanciato “Prova 
n.2/b". riga 280), ci accorgiamo che il secondo programma, 
benché più breve del primo, possiede gli stessi puntatori di fine 
Basic. In ogni caso i puntatori indicano valori maggiori di 
quelli precedentemente trascritti sul foglio di carta. 

4) Col programma “Prova n.2/b" (che è ora allocato in memo- 
ria perche richiamato da “Prova n.2/a"), aggiungiamo la 
riga: 
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180 Rem Commodore Computer Club 
oppure una qualsiasi altra riga. 

5) Digitiamo RUN e Return. 1 valori delle variabili (A. B, C. D. 
E. F) sono ovviamente tutti nulli non solo perchè è stato dato il 
RUN. ma anche perchè è stata aggiunta una riga. Ricordiamo, 
per inciso, che l'inserimento, la cancellazione o la semplice 
modifica di una riga del programma azzera sempre e comun- 
que qualsiasi variabile memorizzata. 

Possiamo dunque notare che i puntatori di fine Basic (elabo- 
razione di riga 160) vengono incrementati. 


Conclusioni sul primo esperimento 

•In un programma è possibile, mantenendo inalterate le vari- 
bili numeriche, dare l’ordine di caricare un altro programma, 
purché quest'ultimo sia più breve o al massimo di eguale lun- 
ghezza di quello “chiamante”. 

• Il programma chiamato non deve in nessun caso essere ma- 
nipolato. pena la perdita della caratteristica di “brevità”. 

• Nel caso si desideri modificare il programma chiamato, pro- 
cedere come segue: 

- Spegnere e riaccendere il computer. 

- Caricare il programma che si desidera modificare. 

- Modificarlo e registrarlo nuovamente con lo stesso nome di 
prima avendo l'accortezza di verificare che le modifiche ap- 
portate non l'abbiano reso più lungo del programma che. in 
seguito, lo chiamerà. 

• Per conoscere la quantità di byte occupata da un programma, 
digitare non il semplice Print Fre(O) ma: 

Clr: Restore: Print FrefO) (Return). 

Se il valore che risulta è negativo, digitate: 

Print 65536 + FrefO) 


La gestione delle variabili stringa 

I computer Commodore allocano le variabili stringa, a se- 
conda dei casi, in due zone della memoria. Una di queste si 
trova aldi là dell'indirizzo di fine Basic. Alcune variabili, inve- 
ce. vengono individuate, dall'interprete, all'interno del pro- 
gramma Basic stesso. 
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Tale metodo di memorizzazione dei dati (tipico delle sole va- 
riabili stringa), che tra breve verrà in parte descritto, ha lo sco- 
po di ottimizzare l'occupazione della memoria RAM. Vedia- 
mo come: 

Se in un programma Basic figura una linea del tipo: 

100 a$= "abcde prim a$ 


l'interprete non ha motivo di depositare i caratteri alfanume- 
rici “abcde” in una zona di memoria “esterna” a quella occu- 
pata dal programma Basic. Poiché, infatti, tali caratteri si tro- 
vano di già in una zona RAM, a quale scopo depositarli da 
qualche altra parte, creando un inutile doppione? In altre pa- 
role quando il computer incontra un'istruzione del tipo Print 
A$, andrà a rintracciare l'area della memoria alla quale sono 
associati i vari caratteri. Nel caso del microprogramma appe- 
na visto, questa si trova esattamente ad otto byte di distanza 
dall'inizio del programma stesso, vale a dire (ma dovreste or- 
mai saperlo): 2 byte di link. 2 di numerazione Basic, 2 del no- 
me della variabile. 1 per il simbolo ( = ) ed uno. infine, per il 
simbolo degli apici ("). 

Ben diverso è il caso della linea Basic: 

100 a$= "abc ” T "def: prim aS 


In questo caso (come in tutti i casi di manipolazione di strin- 
ghe) il computer deve allocare la stringa A$ (ottenuta come ela- 
borazione di due gruppi di caratteri) in qualche parte della 
memoria, diversa da quella relativa ai programmi Basic. Una 
cosa è infatti disporre dell' indirizzo di partenza in cui si trova- 
no nati in fila i caratteri relativi alla stringa, altra cosa è invece 
disporre dell'indirizzo in cui è situata un'operazione di conca- 
tenazione di stringhe. Per sincerarcene, digitate e fate girare i 
due micro-programmi seguenti: 

100 prim fre(O) 

110 a$= abcdefghij": prim aS: prim fre(O) 

... e questo... 


100 prim fre(O) 

110 a$= "abcde '+ fghij prim aS: prim fre(O) 


Quest'ultimo sembra essere più lungo del precedente di ap- 
pena tre byte, cioè i caratteri apici, più. apici ("+”). Infatti è 
proprio cosi e ce lo dimostra il valore di FRE(O) che appare pri- 
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ma della visualizzazione di "abcdefghij". 11 secondo valore 
che appare, indica, invece, il numero di byte a disposizione do- 
po che la variabile A$ c slata dichiarata. 

Mentre nel primo programma la variabile A$ è all'interno 
del programma stesso, nel caso successivo A$ costituisce il ri- 
sultato di una manipolazione e viene pertanto situata automa- 
ticamente in altra zona occupando, di conseguenza una quan- 
tità di memoria maggiore, rispetto al precedente micropro- 
gramma, del numero di caratteri costituenti la stringa 
somma. 


Conclusioni 


1 ) Se in un programma viene definita una variabile stringa, es- 
sa non occupa altra zona se non quella alfintemo del pro- 
gramma Basic stesso c viene individuata da puntatori che, no- 
nostante siano situati, come tutti i puntatori, a! di fuori dell'area 
destinata al Basic puntano a quelle locazioni di memoria. 

2) Se la variabile stringa è il frutto, invece, di una manipolazio- 
ne (Right$ LeftSecc.) oppure di una somma (A$-t-B$), essa vie- 
ne allocata, come i suoi puntatori, in una zona situata al di fuo- 
ri dell'area riservata ai programmi Basic. 

Una descrizione dettagliata di come il Basic gestisce le strin- 
ghe ed i suoi puntatori esula dallo scopo del presente 
inserto. 


(Continuazione e fine al prossimo numero) 
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